☰

如何使用 VBA 在 Excel 中复制和粘贴而不覆盖

tag-icon • tag-icon microsoft-excel vba
如何使用 VBA 在 Excel 中复制和粘贴而不覆盖

我正在尝试将一组列从一张表粘贴到另一张表。我想粘贴该列而不删除或覆盖它。有人能建议如何使用 vba 实现这一点吗？

Sub copy_data()


    If pass1 = 1 Then
        Sheets("I yr").Range(cellFrom1 & ":" & cellTo1).Copy Destination:=Sheets("final").Range("B8:B37")
    End If
    
    If pass2 = 1 Then
        Sheets("II yr").Range(cellFrom2 & ":" & cellTo2).Copy Destination:=Sheets("final").Range("B8:B37")
    End If
    
    If pass3 = 1 Then
        Sheets("III yr").Range(cellFrom3 & ":" & cellTo3).Copy Destination:=Sheets("final").Range("B8:B37")
    End If
    
    If pass4 = 1 Then
        Sheets("IV yr").Range(cellFrom4 & ":" & cellTo4).Copy Destination:=Sheets("final").Range("B8:B37")
    End If

 End Sub

当第二个IF条件运行并粘贴列时，第一个IF条件列将被覆盖。

我想要所有 if 条件中的所有列RANGE(B8, D40)。

相关内容