复制GROUP工作表数据后，如何删除YTP工作表中的空行？

嘿，我来帮你搞定这个问题！结合你已经开始编写的VBA代码，我把完整的实现逻辑和代码整理好了，既能完成GROUP到YTP的数据复制，又能精准删除YTP里的整行空行：

完整VBA代码 #

Option Explicit

Sub CopyAndCleanEmptyRows()
    ' 声明变量
    Dim wsGroup As Worksheet, wsYTP As Worksheet
    Dim lastRowGroup As Long, lastRowYTP As Long
    Dim copyRange As Range
    Dim i As Long
    
    ' 绑定工作表对象（避免硬编码表名，后续修改更方便）
    Set wsGroup = ThisWorkbook.Worksheets("GROUP")
    Set wsYTP = ThisWorkbook.Worksheets("YTP")
    
    ' --- 第一步：复制GROUP工作表的数据到YTP ---
    ' 找到GROUP表最后一行有数据的行
    lastRowGroup = wsGroup.Cells(wsGroup.Rows.Count, "A").End(xlUp).Row
    ' 选中GROUP表所有有数据的区域（从A1到最后一行最后一列）
    Set copyRange = wsGroup.Range("A1:" & wsGroup.Cells(lastRowGroup, wsGroup.Columns.Count).Address)
    
    ' 找到YTP表的下一个空行，粘贴数据
    lastRowYTP = wsYTP.Cells(wsYTP.Rows.Count, "A").End(xlUp).Row + 1
    copyRange.Copy Destination:=wsYTP.Cells(lastRowYTP, "A")
    
    ' --- 第二步：删除YTP表中的整行空行 ---
    ' 重新获取YTP表的最后一行（因为刚粘贴了新数据）
    lastRowYTP = wsYTP.Cells(wsYTP.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往上循环检查（避免删除行后行号错乱导致漏删）
    For i = lastRowYTP To 1 Step -1
        ' 用CountA函数判断整行是否无任何数据（返回0则整行空）
        If Application.WorksheetFunction.CountA(wsYTP.Rows(i)) = 0 Then
            wsYTP.Rows(i).Delete
        End If
    Next i
    
    MsgBox "数据复制完成，整行空行已清理完毕！", vbInformation
End Sub

代码关键细节说明 #

• 工作表绑定：用Set wsGroup = ThisWorkbook.Worksheets("GROUP")明确指定工作表，比直接写表名更健壮，后续如果表名修改，只需改这一处即可。
• 智能复制范围：自动识别GROUP表的最后一行数据，不用手动指定复制范围，适配数据量变化。
• 精准删除整行空行：
  • 采用倒序循环：如果从上往下删除空行，删除后下方的行会自动上移，导致后续行号错乱，容易漏删；倒着从最后一行往第一行检查，就不会有这个问题。
  • CountA(wsYTP.Rows(i)) = 0：这个函数会统计当前行中非空单元格的数量，等于0就说明整行所有单元格都是空的，精准匹配你的需求。
• 友好提示：执行完成后弹出提示框，告诉你操作已完成。

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 找到你正在编写代码的模块，把上面的代码粘贴进去（替换你之前写的部分）。
3. 运行CopyAndCleanEmptyRows宏，就能完成数据复制和空行清理啦！

内容的提问来源于stack exchange，提问作者user9663005