循环嵌套+数组

 

 

第一个程序没问题，就是逻辑还没捋顺

第二程序的功能有问题，需要参考第一个进行修改

 

Sub tss()


m = 2
For i = 2 To 100

If Cells(i, 12) <> "" Then

j = i
Do While Cells(j, 13) = ""

j = j + 1
Loop

If j - i < 3 Then

Cells(m, 18) = j: Cells(m, 17) = i:
Else
m = m - 1:

End If

m = m + 1

End If



Next



End Sub