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

Question

Looking for a bit of guidance.

I am trying to copy all cells from 4 worksheets into a master sheet.

I can copy one sheet of data to the master sheet but when i copy a second sheet it will overwrite the information previously copied to the master sheet.

This is the code that i am currently using to copy the data.

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

Any Thoughts?

Cheers Adam

Answer 1

Something like this might work for you ...

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

It's using the worksheet function "CountA" to work out how may rows are in use, assuming that column A cells are always populated and that you don't have any data in that column below the stuff you want to copy. If you have column headings on the source sheet and the master then they'll get duplicated. So you might want to make the sourceRange start at A2.

HTH.