跨工作表对 Excel 列进行排序

Question

我有一个 10 张的 excel 文件。这些工作表都包含相同的列标题，但数据不同。我手动对第一张表进行了排序，现在我希望其他表中的所有列都与第一张表的顺序相匹配，我不能手动完成它们，因为这将花费我很长时间。如何根据第一个工作表顺序使工作簿中的所有列以相同的顺序排列？我对VBA知之甚少，因此寻求帮助。

Answer 1

确保在运行宏之前保存整个工作簿。没有撤消。

希望得到帮助：

Sub ColumnRearrangement()
  'Horaciux 2014-06-23
Dim nextLabel As String
Dim currentLabel As String

Dim TotalPages As Integer
Dim TotalColumns As Integer

TotalPages = 10
TotalColumns = 200

'Insert a blank column in each page
For p = 2 To TotalPages
    Sheets(p).Select
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
Next

For c = TotalColumns To 1 Step -1
    Sheets(1).Select

    'Debug.Print "-" & Cells(1, c).Text & "-" & Str(c)
    nextLabel = Cells(1, c).Text
    Sheets(2).Select
    For oldCulumn = 2 To TotalColumns + 1

        'Debug.Print Cells(1, oldCulumn).Text & "-" & Str(oldCulumn)
        currentLabel = Cells(1, oldCulumn).Text

        If currentLabel = nextLabel Then
            'Debug.Print currentLabel & "-" & Str(oldCulumn)
            Exit For
        End If
    Next

    For p = 2 To TotalPages
        Sheets(p).Select
        Columns(oldCulumn).Select
        Selection.Cut
        Columns("A:A").Select
        Selection.Insert Shift:=xlToRight
    Next
Next

For p = 2 To TotalPages
    Sheets(p).Select
    Range("A1").Select
Next

End Sub

Answer 2

如果您希望重复列的重新排序，您应该能够为此记录一个简单的宏，只要所有工作表中的列的顺序相同（错误）。打开第二张纸（因为您已经安排了第一张），然后执行以下操作：

1. 打开第二张纸
2. 点击record macro，任意命名
3. 在录制时，在第二张纸中按您想要的顺序剪切/插入列
4. 完成后，点击stop recording

现在您有了一个可以打开其余页面的宏，它会重复您的重新排序。打开每个工作表并单击查看宏，然后运行您刚刚创建的工作表。如果你保存文件，它也会保存宏。

编辑：@horaciux 的精彩观点，请务必在运行宏之前保存整个工作簿，因为没有撤消操作。