VBA追加表格后出现空白行的原因及解决方案咨询

原因 #

你的代码里复制范围的写法有错误：

.Range("O2", ("W2" & .Range("O" & Rows.Count).End(xlUp).Row))

这里"W2" & 行号会生成类似W210这种错误的单元格引用（比如行号是10的话，会变成W210而非W10），导致VBA误选了从O2到错误行号的大片区域，其中包含大量空白行，粘贴后就出现了多余空白行。另外你定义的lr2变量也没实际用到，属于冗余代码。

解决方法 #

修正复制范围的写法，先精准获取动态查询表的最后一行，再锁定需要复制的列范围，同时增加空表判断避免无效操作：

修改后的代码：

Sub Inv_Copy_Paste()
    Dim TC As Worksheet
    Dim lastSourceRow As Long
    Dim lastTargetRow As Long

    Set TC = Worksheets("TC Data Dump")
    
    ' 获取动态查询表（O列）的最后一行
    lastSourceRow = TC.Range("O" & Rows.Count).End(xlUp).Row
    
    ' 只有当O列有数据（lastSourceRow >=2）时才执行复制
    If lastSourceRow >= 2 Then
        ' 获取静态表（A列）的最后一行，偏移1行作为粘贴起始位置
        lastTargetRow = TC.Cells(Rows.Count, 1).End(xlUp).Row + 1
        ' 精准复制O2到W[lastSourceRow]的区域，粘贴到目标位置
        TC.Range("O2:W" & lastSourceRow).Copy Destination:=TC.Cells(lastTargetRow, "A")
    End If
End Sub

关键改动：

• 用"O2:W" & lastSourceRow准确定义复制范围，避免错误的单元格引用
• 增加空表判断，动态查询表为空时不执行复制，防止误操作
• 明确区分数据源和目标区域的最后一行，逻辑更清晰

不需要单独的工作表，是否用单独的Sub看你的需求：

方案1：整合到同一个Sub中 #

如果两个复制操作是一次性完成的，可以把逻辑合并到一个Sub里，示例：

Sub CopyAllData()
    ' 第一个动态表复制逻辑（原需求）
    Dim TC As Worksheet
    Dim lastSourceRow As Long
    Dim lastTargetRow As Long

    Set TC = Worksheets("TC Data Dump")
    lastSourceRow = TC.Range("O" & Rows.Count).End(xlUp).Row
    If lastSourceRow >= 2 Then
        lastTargetRow = TC.Cells(Rows.Count, 1).End(xlUp).Row + 1
        TC.Range("O2:W" & lastSourceRow).Copy Destination:=TC.Cells(lastTargetRow, "A")
    End If

    ' 第二个动态表复制逻辑（新增需求）
    Dim anotherWS As Worksheet
    Dim lastAnotherSourceRow As Long
    Dim lastAnotherTargetRow As Long

    Set anotherWS = Worksheets("你的第二个工作表名称")
    ' 假设第二个动态查询表在X列，静态表在B列，可根据实际调整
    lastAnotherSourceRow = anotherWS.Range("X" & Rows.Count).End(xlUp).Row
    If lastAnotherSourceRow >= 2 Then
        lastAnotherTargetRow = anotherWS.Cells(Rows.Count, "B").End(xlUp).Row + 1
        anotherWS.Range("X2:Z" & lastAnotherSourceRow).Copy Destination:=anotherWS.Cells(lastAnotherTargetRow, "B")
    End If
End Sub

方案2：写成独立的Sub #

如果两个操作需要分开执行（比如有时候只需要复制其中一个），可以写成两个独立的Sub，灵活性更高：

Sub CopyFirstComplianceData()
    ' 第一个表复制逻辑，和修改后的原代码一致
End Sub

Sub CopySecondComplianceData()
    ' 第二个表复制逻辑，参考第一个的写法调整列和工作表名称
End Sub

可以把这两个Sub分别绑定到工作表按钮上，方便技术较弱的团队成员直接点击操作。

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