新足迹

 找回密码
 注册

精华好帖回顾

· 参加活动-性格决定命运 (2011-10-30) pinkdreamer · Such a small small world (2005-6-24) astina
· chinchilla cat - Angel. (2009-1-1) likespring · 更新完毕史上最全超详细悉尼公立医院用medicare做肠镜记录心得以及术后避免痛苦护理保养(11楼),受惠后人 (2015-1-22) qw_731
Advertisement
Advertisement
查看: 5538|回复: 28

如何最快速的在Excel做出如下阶梯图 [复制链接]

发表于 2016-9-28 12:15 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
如题,在线等,谢谢。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
Advertisement
Advertisement
头像被屏蔽

禁止发言

发表于 2016-9-28 12:16 来自手机 |显示全部楼层
此文章由 nba2007 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 nba2007 所有!转贴必须注明作者、出处和本声明,并保持内容完整

退役斑竹 2017年度勋章

发表于 2016-9-28 12:23 |显示全部楼层
此文章由 BreakingBad 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 BreakingBad 所有!转贴必须注明作者、出处和本声明,并保持内容完整
作为外行人,我认为将A1变黄,然后录制一个“Copy Column A -> Insert Copied Cells -> Shift Cells Down"的macro就可以了

退役斑竹 2017年度勋章

发表于 2016-9-28 12:24 |显示全部楼层
此文章由 BreakingBad 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 BreakingBad 所有!转贴必须注明作者、出处和本声明,并保持内容完整
    Columns("A:A").Select
    Selection.Copy
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
怀自信我永不怕夜航
到困倦我自弹自唱

发表于 2016-9-28 12:29 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
BreakingBad 发表于 2016-9-28 11:23
作为外行人,我认为将A1变黄,然后录制一个“Copy Column A -> Insert Copied Cells -> Shift Cells Down" ...

sorry,实际情况不能插入,因为是一个有数据的表格,只是想这样highlight & format

退役斑竹 2017年度勋章

发表于 2016-9-28 12:34 |显示全部楼层
此文章由 BreakingBad 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 BreakingBad 所有!转贴必须注明作者、出处和本声明,并保持内容完整
FutureNeverCome 发表于 2016-9-28 11:29
sorry,实际情况不能插入,因为是一个有数据的表格,只是想这样highlight & format ...

作为外行人,我接下来会尝试用Find & Select里面的Go To 功能

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
怀自信我永不怕夜航
到困倦我自弹自唱
Advertisement
Advertisement

发表于 2016-9-28 12:41 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
BreakingBad 发表于 2016-9-28 11:34
作为外行人,我接下来会尝试用Find & Select里面的Go To 功能

那如果我要做100个台阶,就得在手动GO TO输入A100,B99,C98,D97......?.

退役斑竹 2017年度勋章

发表于 2016-9-28 12:44 |显示全部楼层
此文章由 BreakingBad 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 BreakingBad 所有!转贴必须注明作者、出处和本声明,并保持内容完整
FutureNeverCome 发表于 2016-9-28 11:41
那如果我要做100个台阶,就得在手动GO TO输入A100,B99,C98,D97......?.

字母和数字都是有规律的,创建一列倒序的字母,一列正序的数字,然后三下五除二的将他们合并到一起,再进一步合并到一行就可以了吧

评分

参与人数 1积分 +2 收起 理由
FutureNeverCome + 2 感谢分享

查看全部评分

怀自信我永不怕夜航
到困倦我自弹自唱

发表于 2016-9-28 13:03 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
BreakingBad 发表于 2016-9-28 11:44
字母和数字都是有规律的,创建一列倒序的字母,一列正序的数字,然后三下五除二的将他们合并到一起,再进 ...

谢谢版主,学到了, 这个方法可行,但是不知道有没有更快的.

发表于 2016-9-28 14:04 |显示全部楼层
此文章由 cnmxiu 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 cnmxiu 所有!转贴必须注明作者、出处和本声明,并保持内容完整
不懂呀,盖房子台阶用的?
头像被屏蔽

禁止发言

发表于 2016-9-28 14:47 |显示全部楼层
此文章由 禁言中 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 禁言中 所有!转贴必须注明作者、出处和本声明,并保持内容完整
我对excel是专家。你这个非常简单。但我要知道你要这么做是为什么
Advertisement
Advertisement

发表于 2016-9-28 14:50 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
禁言中 发表于 2016-9-28 13:47
我对excel是专家。你这个非常简单。但我要知道你要这么做是为什么

一个数据表中有这么一堆数据是需要加黄的

发表于 2016-9-28 14:52 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
cnmxiu 发表于 2016-9-28 13:04
不懂呀,盖房子台阶用的?

哈哈 阶梯式的
头像被屏蔽

禁止发言

发表于 2016-9-28 14:54 |显示全部楼层
此文章由 禁言中 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 禁言中 所有!转贴必须注明作者、出处和本声明,并保持内容完整
FutureNeverCome 发表于 2016-9-28 13:50
一个数据表中有这么一堆数据是需要加黄的

你把表格共享,发链接我,我可以做一个公式给你。很简单。

发表于 2016-9-28 15:33 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
禁言中 发表于 2016-9-28 13:54
你把表格共享,发链接我,我可以做一个公式给你。很简单。

方便的话可以给我您的邮箱么?不会共享表格,谢谢

发表于 2016-9-28 16:06 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整
Sub Highlight()

Dim i As Integer
For i = 1 To 100
Cells(i, i).Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Next i
End Sub

cells(i,i)是需要highlight的cell,你需要自己定义

评分

参与人数 2积分 +7 收起 理由
银河 + 3 你太有才了
pentaur + 4 感谢分享

查看全部评分

Advertisement
Advertisement

发表于 2016-9-28 16:34 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
baiii 发表于 2016-9-28 15:06
Sub Highlight()

Dim i As Integer

那如何让这一串阶梯式的数据全部highlight呢

发表于 2016-9-28 17:18 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整
FutureNeverCome 发表于 2016-9-28 15:34
那如何让这一串阶梯式的数据全部highlight呢

已经highlight了,我highlight了a1,b2,c3....你可以自己定义

发表于 2016-9-28 17:22 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整
cells(x,y),x代表row,y代表column

发表于 2016-9-28 17:49 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
baiii 发表于 2016-9-28 16:22
cells(x,y),x代表row,y代表column



您看下这好像不对,我想从A186往右对角线highlight, B185, C184......,vba小白,见谅.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

发表于 2016-9-28 17:57 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整
for i = 1 to 186
cells(187-i,i).select
我假设你有186个cells要highlight,186代表需要多少个cells被highlight
Advertisement
Advertisement

发表于 2016-9-28 17:57 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整
FutureNeverCome 发表于 2016-9-28 16:49
您看下这好像不对,我想从A186往右对角线highlight, B185, C184......,vba小白,见谅. ...


for i = 1 to 186
cells(187-i,i).select
我假设你有186个cells要highlight,186代表需要多少个cells被highlight

评分

参与人数 2积分 +7 收起 理由
BreakingBad + 5 你太有才了
FutureNeverCome + 2 感谢分享

查看全部评分

头像被屏蔽

禁止发言

发表于 2016-9-28 21:42 |显示全部楼层
此文章由 禁言中 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 禁言中 所有!转贴必须注明作者、出处和本声明,并保持内容完整
baiii 发表于 2016-9-28 15:06
Sub Highlight()

Dim i As Integer

下面的方法也可以,已经问题解决啦

评分

参与人数 1积分 +2 收起 理由
FutureNeverCome + 2 我很赞同

查看全部评分

发表于 2016-9-29 10:24 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
baiii 发表于 2016-9-28 16:57
for i = 1 to 186
cells(187-i,i).select
我假设你有186个cells要highlight,186代表需要多少个cells被h ...

太感谢了,实现了!能否帮我再加个把所有黄色的单元格都加个outside border.

非常感谢

发表于 2016-9-29 10:50 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整
FutureNeverCome 发表于 2016-9-29 09:24
太感谢了,实现了!能否帮我再加个把所有黄色的单元格都加个outside border.

非常感谢 ...

把这段加上
With Selection
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
End With
next i

发表于 2016-9-29 10:52 |显示全部楼层
此文章由 baiii 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 baiii 所有!转贴必须注明作者、出处和本声明,并保持内容完整

Sub Highlight()

Dim i As Integer
for i = 1 to 186
cells(187-i,i).select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
With Selection
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
End With
    Next i
End Sub
Advertisement
Advertisement

发表于 2016-9-29 11:57 |显示全部楼层
此文章由 FutureNeverCome 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 FutureNeverCome 所有!转贴必须注明作者、出处和本声明,并保持内容完整
baiii 发表于 2016-9-29 09:52
Sub Highlight()

Dim i As Integer

非常感谢!

发表于 2016-9-29 18:27 |显示全部楼层
此文章由 jasonliu234 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 jasonliu234 所有!转贴必须注明作者、出处和本声明,并保持内容完整
不是吧,

Excel 2016 默认就有water fall

发表于 2016-12-14 16:20 |显示全部楼层
此文章由 aphacia 原创或转贴,不代表本站立场和观点,版权归 oursteps.com.au 和作者 aphacia 所有!转贴必须注明作者、出处和本声明,并保持内容完整
数组读入,然后条件循环并着色。自动求出对角位置。

发表回复

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Advertisement
Advertisement
返回顶部