Excel中按行排列(VBA脚本)

排序前

要求对4列数据按照第一行abcd的顺序排列---就是选定某一行，对行进行排列

VB脚本如下：

要使用这个脚本，请按照以下步骤操作：

1. 打开Excel，然后按下 Alt + F11 打开VBA编辑器。
2. 在VBA编辑器中，选择“插入” > “模块”，在打开的模块窗口中粘贴上面的代码。
3. 选择你想要排序的单元格区域。
4. 按下 F5 运行宏或关闭VBA编辑器，在Excel中通过“开发工具” > “宏”来选择并运行这个宏。

Sub SortColumnsByFirstRow()
    Dim rng As Range
    Dim data() As Variant
    Dim colOrder() As Variant
    Dim i As Integer, j As Integer
    Dim temp As Integer

    ' 检查选择区域
    If Selection.Areas.Count <> 1 Then
        MsgBox "请选择一个单一的单元格区域进行排序。", vbExclamation
        Exit Sub
    End If
    
    ' 获取选择区域
    Set rng = Selection
    If rng.Cells(1