vba 将列按指定顺序复制到新的工作表

在VBA中，如果你想将一个工作表的列按照特定顺序复制到新工作表中，可以先创建一个新的工作表，然后选择需要的列并调整它们的顺序。以下是一个基本的例子：

Sub CopyColumnsInOrder()
    ' 创建一个新的工作表
    Dim newSheet As Worksheet
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ' 在现有工作表之后添加新工作表

    ' 指定原工作表和列
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 更改为你想要复制的原始工作表名

    ' 指定需要复制的列及其顺序
    Dim columnOrder(1 To 3) As Long ' 这里假设你要复制的是第1、3和5列
    columnOrder(1) = 1 ' 第一列索引为1 (因为VBA从1开始计数)
    columnOrder(2) = 3
    columnOrder(3) = 5

    ' 循环复制列到新工作表，并调整顺序
    For i = LBound(columnOrder) To UBound(columnOrder)
        Dim col As Range
        Set col = sourceSheet.Columns(columnOrder(i))
        
        ' 将当前列移动到新工作表对应的位置
        If i = 1 Then
            ' 新工作表的第一列直接复制过去
            col.Copy Destination:=newSheet.Cells(1, 1)
        Else
            ' 对于后面的列，先插入一行空白，再放置列
            newSheet.Rows(newSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert Shift:=xlDown
            col.Copy Destination:=newSheet.Cells(newSheet.Cells(Rows.Count, 1).End(xlUp).Row, i + 1)
        End If
    Next i
End Sub

请注意，这里的列号是从1开始的，所以第1列对应的是Column A。