复制和粘贴多个单元格而不会覆盖现有单元格EXCEL VBA

Question

寻找一些指导。

我试图将所有单元格从4个工作表复制到一个主表。

我可以将一张数据复制到母版，但是当我复制第二张纸时，它将覆盖先前复制到母版的信息。

这是我当前用于复制数据的代码。

Sub Create_Master ()

    Dim sourceColumn As Range, targetColumn As Range

    Set sourceColumn = Worksheets("Sheet1").Columns("A:P")
    Set targetColumn = Worksheets("Master Sheet").Columns("A:P")

    sourceColumn.Copy Destination:=targetColumn

End sub

有什么想法吗？

干杯亚当

Answer 1

这样的事情可能适合您...

Sub Create_Master ()

 Dim sourceSheet As Worksheet Dim sourceRange As Range Dim sourceRows As Integer Set sourceSheet = Worksheets("Sheet1") sourceRows = WorksheetFunction.CountA(sourceSheet.Range("A:A")) Set sourceRange = sourceSheet.Range("A1:P" & sourceRows) Dim targetSheet As Worksheet Dim targetRange As Range Dim targetRows As Integer Set targetSheet = Worksheets("Master Sheet") targetRows = WorksheetFunction.CountA(targetSheet.Range("A:A")) Set targetRange = targetSheet.Range("A" & targetRows + 1 & ":P" & targetRows + 1 + sourceRows) sourceRange.Copy Destination:=targetRange 

End Sub

它使用工作表函数“ CountA”来计算行的使用情况，假设始终填充A列单元格，并且该列中没有要复制的内容的任何数据。 如果源工作表和母版上都有列标题，则它们将重复。 因此，您可能要使sourceRange从A2开始。

HTH。