我来帮你搞定这个问题！你的核心需求是：在把带空字符串的数据粘贴到deposits表格后，移除那些全为空字符串的新增行，同时清理这些行的格式，让表格自动调整到仅包含有效数据的大小。

首先先优化你现有的代码（避免使用Select/Selection，这会让代码更稳定、高效），然后添加处理空行的逻辑：

Sub PasteAndCleanDeposits()
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim targetTable As ListObject
    Dim pasteStartRow As Long
    Dim pastedRange As Range
    Dim emptyRows As Range
    Dim cell As Range
    
    ' 设置工作表和表格对象（替换成你的源工作表名称）
    Set sourceWs = ThisWorkbook.Worksheets("你的源工作表名称")
    Set targetWs = ThisWorkbook.Worksheets("deposits")
    Set targetTable = targetWs.ListObjects("deposits")
    
    ' 复制源区域的值（直接复制值，跳过Copy-PasteSpecial的步骤更高效）
    Dim sourceData As Variant
    sourceData = sourceWs.Range("O7:R30").Value
    
    ' 获取表格的下一个空行作为粘贴起始行
    pasteStartRow = targetTable.Range.Rows.Count + 1
    
    ' 将值粘贴到表格下方（表格会自动扩展）
    targetWs.Range("A" & pasteStartRow).Resize(UBound(sourceData, 1), UBound(sourceData, 2)).Value = sourceData
    
    ' 定义粘贴后的区域（仅处理新增的行，避免影响原有数据）
    Set pastedRange = targetTable.Range.Offset(pasteStartRow - 1).Resize(UBound(sourceData, 1))
    
    ' 遍历粘贴区域，标记全为空字符串的行
    For Each cell In pastedRange.Columns(1).Cells
        ' 检查当前行的所有列是否都是空字符串或空值
        If Application.WorksheetFunction.CountA(cell.EntireRow) = 0 Then
            If emptyRows Is Nothing Then
                Set emptyRows = cell.EntireRow
            Else
                Set emptyRows = Union(emptyRows, cell.EntireRow)
            End If
        End If
    Next cell
    
    ' 删除标记的空行，并清除格式
    If Not emptyRows Is Nothing Then
        ' 先清除空行的格式
        emptyRows.ClearFormats
        ' 删除空行（注意要从下往上删，避免行号错乱）
        Dim i As Long
        For i = emptyRows.Rows.Count To 1 Step -1
            emptyRows.Rows(i).Delete
        Next i
        
        ' 调整表格大小，让表格自动适配剩余数据
        targetTable.Resize targetTable.Range.Resize(targetTable.ListRows.Count - (emptyRows.Rows.Count))
    End If
    
    ' 清除剪贴板（可选，避免保留复制内容）
    Application.CutCopyMode = False
End Sub

关键细节说明： #

1. 避免Select/Selection：直接操作工作表、表格和单元格对象，代码运行更稳定，速度更快。
2. 直接复制值：用数组sourceData存储源区域的值，再写入目标区域，比Copy-PasteSpecial更高效。
3. 精准处理新增行：只检查粘贴的那部分行，不会误操作表格中原有的数据。
4. 判断全空行：用CountA函数判断整行是否没有有效数据（包括公式返回的空字符串）。
5. 从下往上删除行：如果从上往下删，删除行后下面的行号会错乱，导致漏删，所以反向遍历删除更可靠。
6. 清除格式+调整表格大小：删除空行前先清除格式，最后用Resize让表格自动适配剩余的有效数据行。

使用注意事项： #

• 把代码中的"你的源工作表名称"替换成实际的源工作表名称（就是包含O7:R30的那个工作表）。
• 如果你的表格列数不是4列（对应O-R列的4列），不需要修改代码，因为Resize会自动匹配源数据的列数。

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