Sub 宏5() ' ' 宏5 Macro ' ect 记录的宏 2007-6-7 ' Cells(223, 1) = "end" Cells(223, 2) = "end" For y = 1 To 2 For x = 1 To 222 If Cells(x, y) <> "" Then GoTo goon Cells(x, y).Select Selection.Delete Shift:=xlUp x = x - 1 If x = 0 Then x = 1 If Cells(x, 1) = "end" Then GoTo nextcolumn If Cells(x, 2) = "end" Then GoTo ending goon: Next x nextcolumn: Next y ending: End Sub
|