excel VBA DO循环
答案:3 悬赏:80 手机版
解决时间 2021-04-02 17:20
- 提问者网友：雨不眠的下
- 2021-04-02 07:25
excel VBA DO循环
最佳答案
- 五星知识达人网友：狂恋
- 2021-04-02 08:30
Public Sub kkkk()
Dim i, j
i = 2
Do
k = 0
For j = 1 To 50
If Cells(i + j, 1) = Cells(i, 1) Then
k = k + 1
End If
Next j
Range("G" & i & ":G" & i + k).Select
Application.CutCopyMode = False
Selection.Copy
Range("H" & i).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
If k > 0 Then
Range("f" & i + 1 & ":j" & i + k).Select
Selection.ClearContents
End If
i = i + k + 1
Loop Until i > 576
End Sub
Dim i, j
i = 2
Do
k = 0
For j = 1 To 50
If Cells(i + j, 1) = Cells(i, 1) Then
k = k + 1
End If
Next j
Range("G" & i & ":G" & i + k).Select
Application.CutCopyMode = False
Selection.Copy
Range("H" & i).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
If k > 0 Then
Range("f" & i + 1 & ":j" & i + k).Select
Selection.ClearContents
End If
i = i + k + 1
Loop Until i > 576
End Sub
全部回答
- 1楼网友：往事埋风中
- 2021-04-02 09:48
for...next
do.....loop
do.....loop
- 2楼网友：duile
- 2021-04-02 09:12
内部的不要省略啊，发出来看才能清楚！
IsEmpty好像是用来判断变量是否初始化吧。
不能用来判断单元格是否为空！楼主可以修改循环条件
do while Cells(i, 1)<>""
已QQ答复！
IsEmpty好像是用来判断变量是否初始化吧。
不能用来判断单元格是否为空！楼主可以修改循环条件
do while Cells(i, 1)<>""
已QQ答复！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯