我不确定为什么当我尝试输入下一行row2时为什么没有for循环
Sub test4()
For row2 = 2 To 174
If IsEmpty("I" & row2) Then
Worksheets("Sheet1").Range("I" & row2).Copy _
Destination:=Worksheets("Sheet2").Range("R5")
If IsEmpty("I" & row2) Then Exit For
Next row2
End Sub