[已解决]关于循环填充单元格的先后次序

haizhang

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub 从左到右()
Dim i, j, m
i = Range("A1").End(xlToRight).Column()
j = Range("Z1").End(xlToLeft).Column()
For m = i To j
Cells(1, m) = 1
Sleep 100 '延时1000为1秒
DoEvents
Next m
End Sub

以上代码是判断第一行A1到Z1单元格中，第一个有值单元格与最后一格有值单元格，然后在之间循环填充数值1

能实现从【左至右】，依序延时填充数值

请教哪位大侠，如何实现反向填充，即从【右至左】，依序延时填充数值？？

最佳答案

月排行榜 / 总排行榜

xdd_sky

2013-5-31 14:37

把这句For m = i To j改成for m=j to i step -1

跳转到最佳答案楼层

xdd_sky

把这句For m = i To j改成for m=j to i step -1

lyf7276

dim myrnag as range
set myrang =range(你所要填充的区域）
for i= myrang.conut  to 1 setp -1
myrang(i)=1
next

haizhang

谢谢二楼大侠，修改一下就成功了，吼吼吼。。。。

三楼的要选择填充区域，我之前是自动判断的，不过也谢谢了