新足迹

 找回密码
 注册

精华好帖回顾

· 更新完毕史上最全超详细悉尼公立医院用medicare做肠镜记录心得以及术后避免痛苦护理保养(11楼),受惠后人 (2015-1-22) qw_731 · 亲爱的,谢谢你这么耐心的等我长大 (2009-8-28) 清凉
· ~~Matcha matcha 我爱抹茶~~ 分享几款抹茶制作的小点心 - 戚风,瑞士卷,幕斯,冰淇淋,元宵 (2014-12-3) 胡须康 · 溜溜达达 Vivid Sydney 2014 采风 (多图) (2014-6-8) feihong
Advertisement
Advertisement
查看: 5389|回复: 28

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

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

本帖子中包含更多资源

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

x
Advertisement
Advertisement

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

2017年度勋章

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

2017年度勋章

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

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

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

禁止发言

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

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

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

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

哈哈 阶梯式的
头像被屏蔽

禁止发言

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

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

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

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

发表于 2016-9-28 15: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 收起 理由