求助，我快被弄投降了！

超核金弹头

Sub 测试()
Dim sumt As Integer
Dim i As Integer
sumt = 4
Dim range1 As Range
Dim range2 As Range
asdf:
Do While range1 <> ""
  With Worksheet
  Set range1 = .Range("G" & sumt)
  Set range2 = .range1.Offset(1, 0)


   If range1 < range2 Then
     i = Worksheet.range2.Row
     Worksheet.Rows(i).Insert
     Else
     Exit Do
   End If
  sumt = sumt + 1
Loop
End Sub
总是提示我“loop没有do”，各种改，也改不对，只能求助了

skyzxh

那是你少了个 End With

cwpccna

skyzxh 发表于 2018-7-3 22:35
那是你少了个 End With

哇，大神好厉害，这也能发现