[英]Excel copy data from multiple worksheets
有沒有辦法將單元格范圍從多個工作表復制到另一個工作表? 例如:
工作表1
蘋果
葡萄
桃子
櫻桃
工作表2
橙子
梨
香蕉
藍莓
我需要結果
工作表3
蘋果
葡萄
桃子
櫻桃
橙子
梨
香蕉
藍莓
假設我在工作表1和2的A列中有數據,並且我需要在Sheet3的A列中顯示合並的結果。 基本上,我需要在一列中顯示Sheet3中Sheet 1和Sheet 2中的所有項目。
有任何想法嗎? 提前致謝。
由於您的數據位於同一列中,因此我假設您真正需要做的就是將每張工作表粘貼粘貼到一個主表中。 我在網絡上找到了一段時間的VBA功能(對原創作者表示抱歉,我希望我知道是誰,所以我可以相信他)。 它將所有工作表合並到一個稱為“主”的工作表中。 節省大量時間! 我希望這有助於或使您接近需要的地方。
Sub CreateMasterSheet()
Application.ScreenUpdating = False
Dim wrk As Workbook
Dim sheet As Worksheet
Dim masterSheet As Worksheet
Dim rng As range
Set wrk = ActiveWorkbook
For Each sheet In wrk.Worksheets
If sheet.Name = "Master" Then
MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _
"Remove or rename this worksheet.", vbOKOnly + vbExclamation, "Error"
Exit Sub
End If
Next sheet
Set masterSheet = wrk.Worksheets.Add(After:=wrk.Worksheets(wrk.Worksheets.count))
masterSheet.Name = "Master"
For Each sheet In wrk.Worksheets
If sheet.Index = wrk.Worksheets.count Then
Exit For
End If
Set rng = sheet.range(sheet.cells(1, 1), sheet.cells(65536, 1).End(xlUp).Resize(, 256))
masterSheet.cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.count, rng.Columns.count).Value = rng.Value
Next sheet
masterSheet.Columns.AutoFit
Application.ScreenUpdating = True
End Sub
您沒有提到您的Excel版本。 在2003年和2010年,您可以使用“數據合並”來執行此操作。 有關該過程,請參見您的版本幫助。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.