![](https://img.51dongshi.com/20250105/wz/18527014552.jpg)
兩個表的結(jié)構(gòu)相同,那么解決方法就比較簡單了。比如,假設(shè)右邊四列數(shù)據(jù)的區(qū)域是從D2到G20,那么你可以選擇其中一個表的D2至G20區(qū)域進行復(fù)制。然后,切換到另一個表,在D2單元格上點擊右鍵,選擇“選擇性粘貼”選項,并勾選“跳過空單元格”選項,最后點擊確定。這只是其中一種方法,另外,你也可以使用公式來拖拽生成結(jié)果。不過,如果不止兩個表,假設(shè)你有幾十個甚至幾百個表,手工操作就不太現(xiàn)實了,這時就需要考慮使用VBA代碼來自動完成任務(wù)。VBA代碼可以大大簡化工作流程,提高效率。以Excel為例,你可以編寫一段VBA代碼來批量處理這些表格,將所有表格中的數(shù)據(jù)匯總到一個新表格中,同時保持原始表格的排序不變。以下是一個簡單的VBA示例代碼,你可以根據(jù)自己的需求進行調(diào)整:Sub MergeSheets()Dim ws As WorksheetDim sourceRange As RangeDim targetRange As RangeDim i As IntegerSet sourceRange = ThisWorkbook.Sheets(1).Range("D2:G20")Set targetRange = ThisWorkbook.Sheets(2).Range("A2")For i = 3 To ThisWorkbook.Sheets.CountThisWorkbook.Sheets(i).Range("D2:G20").CopytargetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=FalseSet targetRange = targetRange.Offset(1, 0)Next iApplication.CutCopyMode = FalseEnd Sub這段代碼會將從第三個表開始的所有表中的D2至G20區(qū)域的數(shù)據(jù)匯總到第二個表的A2單元格開始的位置,并且跳過空單元格。最后,記得取消剪貼板模式,以清除復(fù)制和粘貼的標記。需要注意的是,以上代碼僅為示例,具體實現(xiàn)時需要根據(jù)實際的工作表結(jié)構(gòu)進行調(diào)整。你可以根據(jù)自己的需求,修改代碼中的工作表名稱、數(shù)據(jù)區(qū)域等信息,以確保代碼能夠正確地執(zhí)行。