Excel工作表join而不覆盖列

我有两个Excel表。 一个看起来像这样：

另一个这样的：

我想要像这样合并它们：

可悲的是，我没有两个，但约150张，需要合并。 第二列在每一个中都是一样的，它们具有相同的值。 有任何想法吗？

谢谢！

Answer 1

像这样的东西将工作。 您将需要调整复制范围以迎合您的电子表格

Sub Merge() Dim i As Integer i = 1 While i <= ActiveWorkbook.Sheets.Count Sheets(i).Select Range("B3:C6").Copy Sheets(1).Select Range("B3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ True, Transpose:=False i = i + 1 Wend Sheets(1).Select End Sub