2つのワークブックのデータを1つのマスターワークブックにコピー/マージする

Question

2人のスプレッドシートがあり、それぞれが異なる人物で記入されています。私はその後、別々のデータを最初のものと同じですが、うまくいけば2組のデータを組み合わせたmaterスプレッドシートにコピーしようとしました。 私は、1つのスプレッドシートから行をコピーするコマンドボタン "submit"を自分のシートに設定することができましたが、他の人が "submit"を押すと他のデータを上書きするだけです... 私はループしても、私はそれを働かせることはできません。

Private Sub CommandButton3_Click() 

Application.ScreenUpdating = False 

Dim wkb1 As Workbook 
Dim sht1 As Worksheet 
Dim wkb2 As Workbook 
Dim sht2 As Worksheet 

Set wkb1 = ThisWorkbook 
Set wkb2 = Workbooks.Open("X:\TA Info\MASTER.xlsx") 
Set sht1 = wkb1.Sheets("Sheet1") 
Set sht2 = wkb2.Sheets("Sheet1") 

sht1.Cells.Copy 
sht2.Range("A1").PasteSpecial xlPasteValues 
Application.CutCopyMode = False 
wkb2.Close True 

Application.ScreenUpdating = True 

End Sub 

私はこれは非常にユニークな質問だと私は理解していますが、私は誰もが時間を提供していただければ幸いです。

ありがとうございます。

Answer 1

あなたのライン

sht2.Range("A1").PasteSpecial xlPasteValues 

は常にそこに何かを上書きし、範囲A1に貼り付けます。既存のデータ以下のデータを追加するには、

sht2.Range("A" & sht2.rows.count).End(xlup).offset(1,0).PasteSpecial xlPasteValues 

ああを使用する - しかし、あなたはA1に除いシートのすべてのセルをコピーすることはできません - 私たちはのみ使用セルをコピーする必要があります。

sht1.UsedRange.Cells.Copy