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

全部回答

1楼网友：往事埋风中
2021-04-02 09:48

for...next
do.....loop

2楼网友：duile
2021-04-02 09:12

内部的不要省略啊，发出来看才能清楚！
IsEmpty好像是用来判断变量是否初始化吧。
不能用来判断单元格是否为空！楼主可以修改循环条件
do while Cells(i, 1)<>""
已QQ答复！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息