如何将execl中多列数据按顺序排成1列，如何所示。

Question

如何将execl中多列数据按顺序排成1列，如何所示。实际数据有几百列

Answer 1

假定源数据在sheet1, 合并后数据放到sheet2 A列，运行如下宏就可以合并成一列

Sub zzhabc()

max_col = Sheets("sheet1").[iv2].End(xlToLeft).Column

For i = 1 To max_col:

    Sheets("sheet1").Select

    max_row = Cells(Rows.Count, i).End(xlUp).Row

    Range(Cells(2, i), Cells(max_row, i)).Copy

    Sheets("sheet2").Select

    max_row = Sheets("sheet2").[a65536].End(xlUp).Row

    Cells(max_row + 1, 1).Select

    ActiveSheet.Paste

Next

End Sub

本回答被提问者采纳