Excel表格连接而不覆盖列

Question

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

另一个像这样：

我想像这样合并它们：

可悲的是，我没有两张，但大约有150张需要合并的纸张。第2列在每一个中都是相同的，并且它具有相同的值。有什么想法吗？

谢谢！

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