老师好，我写的复制的时候加个空格，也成功了，有个问题，我再次点多2行空格，在点多一个，我做了个do loop，删除空格，好像是死循环了，麻烦老师指点下
Private Sub Test（）
Dim i, a As Range, aa As Range, bb
[k:l].Clear
' Do Until i = 10
' For i = 1 To 10
' If Cells（Rows.Count, i）.End（xlUp） = "" Then
' Cells（Rows.Count, i）.End（xlUp）.Delete
' End If
' Next
' Loop
For Each aa In
Private Sub Test（）
Dim i, a As Range, aa As Range, bb
[k:l].Clear
' Do Until i = 10
' For i = 1 To 10
' If Cells（Rows.Count, i）.End（xlUp） = "" Then
' Cells（Rows.Count, i）.End（xlUp）.Delete
' End If
' Next
' Loop
For Each aa In
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。