簡體   English   中英

將數據從2個工作簿復制/合並到一個主工作簿

[英]Copy/merge data from 2 workbooks to one master workbook

我有2個相同的電子表格,由不同的人填寫。 然后,我嘗試將他們的單獨數據復制到與第一個相同的主電子表格中,但希望將兩套數據組合在一起。 我設法在工作表中設置了一個“提交”命令按鈕,該按鈕將從一個電子表格中復制行,但是當另一個人按“提交”時,它只會覆蓋其他數據...我知道我需要編寫一個循環並如果但我不能使它工作。

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

我知道這是一個非常獨特的問題,但是如果有人有時間提供指導,我將不勝感激。

謝謝。

你的線

 sht2.Range("A1").PasteSpecial xlPasteValues

始終粘貼到范圍A1中,覆蓋那里的所有內容。 要將數據附加到現有數據下面,請使用

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

嗯-但是您無法將工作表中的所有單元格都復制到A1中-因此我們只需要復制使用的單元格即可。 改變中

  sht1.Cells.Copy 

進入

  sht1.UsedRange.Cells.Copy

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM