VBA Excel整合多列数据至2列

在VBA编程中，处理Excel多列数据并将其整合成两列是一项常见的任务。通过编写VBA脚本，可以轻松实现这一目标。首先，打开Excel并按Alt + F11进入VBA编辑器。在模块中编写以下代码：

Sub 合并两列()
    Dim 列数 As Integer
    列数 = ActiveSheet.UsedRange.Columns.Count
    For i = 1 To 列数 Step 2
        Columns(i + 1).Cut Destination:=Columns(列数 + 2)
    Next i
    Columns(列数 + 2).Delete
End Sub

此代码通过循环遍历每两列，将奇数列的数据剪切到偶数列后，再删除多余的列。执行该宏后，原始数据将整合到两列中。记得在执行前先备份数据，以免丢失。

通过这个VBA脚本，你可以高效地将多列数据整理成两列，适用于各种数据处理场景。