求助大神怎么把多个工作表中的同一列合并到新工作表中的多列

Cresnt

最好不要修改工作表的名称，找了好久没找到可以用的，感谢各位大佬！

笑着...两年过去

1. Sub test()
   
2.     For Each sht In Sheets
   
3.         If sht.Name <> "???" Then
   
4.            c = c + 1
   
5.            sht.[b:b].Copy Cells(1, c + 1)
   
6.         End If
   
7.     Next
   
8. End Sub
   

复制代码

Jaofuan

Sub xianshi()
    Dim ar
    For Each tem In ThisWorkbook.Worksheets
        If tem.Name <> "合并" Then
            ar = tem.Range("b1:b" & tem.Cells(Rows.Count, "b").End(xlUp).Row)
            col = Sheets("合并").Cells(2, Columns.Count).End(xlToLeft).Column + 1
            Sheets("合并").Cells(1, col).Resize(UBound(ar), UBound(ar, 2)) = ar
        End If
    Next
End Sub