merge - Excel - 将多列合并为一列

Question

我有多个列表，它们位于 Excel 的不同列中。我需要做的就是将这些数据列合并成一个大列。我不在乎是否有重复的条目，但我希望它跳过每列的第 1 行。

另外，如果 ROW1 有从 1 月到 12 月的标题，并且列的长度不同并且需要合并为一个大列怎么办？

ROW1| 1   2   3    
ROW2| A   D   G    
ROW3| B   E   H    
ROW4| C   F   I

应该合并成

A    
B    
C    
D    
E    
F    
G    
H    
I

需要跳过每列的第一行。

Answer 1

试试这个。单击数据范围内的任意位置，然后使用此宏:

Sub CombineColumns()
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer

Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1

For iCol = 2 To rng.Columns.Count
    Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
    ActiveSheet.Paste Destination:=Cells(lastCell, 1)
    lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol
End Sub