如何最快速的在Excel做出如下阶梯图

FutureNeverCome

如题，在线等，谢谢。

nba2007

。

BreakingBad

作为外行人，我认为将A1变黄，然后录制一个“Copy Column A -> Insert Copied Cells -> Shift Cells Down"的macro就可以了

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

FutureNeverCome

BreakingBad 发表于 2016-9-28 11:23
作为外行人，我认为将A1变黄，然后录制一个“Copy Column A -> Insert Copied Cells -> Shift Cells Down" ...

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

BreakingBad

FutureNeverCome 发表于 2016-9-28 11:29
sorry,实际情况不能插入，因为是一个有数据的表格，只是想这样highlight & format ...

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

FutureNeverCome

BreakingBad 发表于 2016-9-28 11:34
作为外行人，我接下来会尝试用Find & Select里面的Go To 功能

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

BreakingBad

FutureNeverCome 发表于 2016-9-28 11:41
那如果我要做100个台阶，就得在手动GO TO输入A100,B99,C98,D97......?.

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

FutureNeverCome

BreakingBad 发表于 2016-9-28 11:44
字母和数字都是有规律的，创建一列倒序的字母，一列正序的数字，然后三下五除二的将他们合并到一起，再进 ...

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

cnmxiu

不懂呀，盖房子台阶用的？

禁言中

我对excel是专家。你这个非常简单。但我要知道你要这么做是为什么

FutureNeverCome

禁言中 发表于 2016-9-28 13:47
我对excel是专家。你这个非常简单。但我要知道你要这么做是为什么

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

FutureNeverCome

cnmxiu 发表于 2016-9-28 13:04
不懂呀，盖房子台阶用的？

哈哈 阶梯式的

禁言中

FutureNeverCome 发表于 2016-9-28 13:50
一个数据表中有这么一堆数据是需要加黄的

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

FutureNeverCome

禁言中 发表于 2016-9-28 13:54
你把表格共享，发链接我，我可以做一个公式给你。很简单。

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

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，你需要自己定义

FutureNeverCome

baiii 发表于 2016-9-28 15:06
Sub Highlight()

Dim i As Integer

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

baiii

FutureNeverCome 发表于 2016-9-28 15:34
那如何让这一串阶梯式的数据全部highlight呢

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

baiii

cells(x,y),x代表row,y代表column

FutureNeverCome

baiii 发表于 2016-9-28 16:22
cells(x,y),x代表row,y代表column

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

baiii

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

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

禁言中

baiii 发表于 2016-9-28 15:06
Sub Highlight()

Dim i As Integer

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

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.

非常感谢

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

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

FutureNeverCome

baiii 发表于 2016-9-29 09:52
Sub Highlight()

Dim i As Integer

非常感谢！

jasonliu234

不是吧，

Excel 2016 默认就有water fall

aphacia

数组读入，然后条件循环并着色。自动求出对角位置。