友情链接
最新评论
最新留言
我的日志
EXCEL宏 2007-11-15
1=====根据上一个覆盖=====;i代表行,j代表列Option ExplicitSub Macro2()Dim str As StringDim i As IntegerDim j As Integer For j = 1 To 3 For i = 2 To 871 If Sheet1.Cells(i, j) <> "" Then str = Sheet1.Cells(i, j) If Sheet1.Cells(i, j) = "" Then Sheet1.Cells(i, j) = str NextNextEnd Sub2=====根据前一个情况序列=====Option ExplicitSub hong()Dim i As IntegerDim j As IntegerDim str As Stringstr = Sheet4.Cells(2, 1)j = 1For..







