多個工作表複製到一個

我花了一段時間尋找幫助編寫代碼，以從多個工作表匹配的數據複製到一個單一的表，但沒有類似的東西，我發現在這裏位於只有一個：Find Match, Copy Row from Sheet1 and Insert Into Sheet2 多個工作表複製到一個

我試着調整它以適合我的需求，但是我對VBA不是很擅長，而且我無法按照自己的意願去做。任何幫助將不勝感激。

我所擁有的是有四個工作表的工作簿; Master,FescoMonthly,Schedule和FescoData。這些工作表是由我們的客戶發送給我們的，所以我可以導入它們，但我不想更改它們的佈局，這是問題的一部分。我希望宏在每個工作表中搜索匹配的計量器編號，並將某一行復制到名爲Combined的新工作表中。

在Master工作，我需要整個事情從5列到F複製到底部（目前1982年更可添加）和列A ----- A列是米數

在FescoMonthly工作表我需要將第5行復制到底部，第A列到H複製從列D（計數器編號）到主工作表A列的相同計量器編號。

在Schedule工作表中，我需要將第5行復制到底部，將列A到D複製到主工作表的A列（計數器編號）。

在FescoData工作表中，我需要將第5行復制到底部，並將列A到C複製到主工作表的A列（計數器編號）。

如果有人可以請求幫助我，只是匹配和複製Master和FescoMonthly我想我可以弄清楚如何做其他人，我可以重新發布我的工作，看看我是否做得對。

來源

2012-05-29 SGTScottAdams

可能重複的[幫助需要Pls .... excel宏：工作表之間的比較和複製]（http://stackoverflow.com/questions/1692345/help-need-pls-excel-macro -compare-and-copy-between -heetsheets） –

您指向的頁面是ask在兩張工作表上重複3組重複，但我要求在4張工作表上重複一份。我很抱歉，但我不夠先進，不能從那篇文章中找出我的答案。謝謝你幫助我指出正確的方向。 – SGTScottAdams

您的意思是您想要跳過與'Master'中的米數相匹配的'FescoMonthly'中的米數，然後將剩下的'FescoMonthly'複製到新的數據表中？ –

集SHT到具有要
集TRG複製到目標工作表中的數據的工作表
集colCount到列數複製

Set rng = sht.Range(sht.Cells(5, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount)) 
' start at row 5, then get the last row with data, and then expand to the number of columns 
trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
' find last unused cell in first column, and copy the data there

（使用1048576，而不是65536在excel 2007或更高版本）

來源

2012-05-29 19:17:57 SeanC

感謝您的幫助，但所有這些都是將數據複製到新的工作表中。我期望做的是將4個工作表中的信息合併成一個工作表。 – SGTScottAdams

vlookup將跨文件工作。我不知道這是否會有所幫助 – SeanC

這就是我在做的第一件事，但我希望能夠獲得一個宏，因爲工作簿不斷變化，如果我有一個宏，我認爲它會更好，因爲我可以進行更改，然後點擊按鈕將正確的信息拖入新的工作表中。 – SGTScottAdams

多個工作表複製到一個

回答

相關問題