怎么把EXCEL按照123123排序

要将Excel中的数据按照123123排序，可以通过以下几种方法实现：使用辅助列排序、使用VBA脚本、使用自定义排序规则。 使用辅助列排序是最简单且最容易实现的方法。让我们详细介绍如何通过辅助列排序实现123123排序。

一、辅助列排序

1、创建辅助列

为了实现123123排序，我们需要创建一个辅助列。假设我们的数据在A列，从A2开始。我们可以在B列中创建一个辅助列，并在B2中输入公式 =MOD(ROW()-1, 3) + 1。这个公式会根据行号生成一个循环序列123123。

2、填充辅助列

将B2单元格中的公式向下拖动，直到所有数据对应的辅助列都填充完毕。这样，我们就有了一个循环的序列123123。

3、按辅助列排序

选中整个数据区域（包括辅助列），然后依次点击“数据”选项卡中的“排序”按钮。在弹出的对话框中，选择辅助列（B列）作为排序依据，按照升序排序。这样，数据就会按照123123的顺序排列。

二、使用VBA脚本

如果你对VBA（Visual Basic for Applications）有一定了解，可以通过编写脚本实现123123排序。

1、打开VBA编辑器

按 ALT + F11 打开VBA编辑器。

2、插入模块

在VBA编辑器中，点击“插入” -> “模块”，插入一个新的模块。

3、编写脚本

在模块中输入以下代码：

Sub Sort123()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '假设数据在Sheet1中
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    Dim helperCol As Range
    Set helperCol = ws.Range("B2:B" & lastRow)
    For i = 2 To lastRow
        ws.Cells(i, 2).Value = (i - 2) Mod 3 + 1
    Next i
    ws.Range("A1:B" & lastRow).Sort Key1:=ws.Range("B1"), Order1:=xlAscending, Header:=xlYes
    ws.Columns("B").Delete
End Sub

4、运行脚本

关闭VBA编辑器，按 ALT + F8 打开宏对话框，选择 Sort123 宏并运行。数据就会按照123123顺序进行排序。

三、自定义排序规则

在某些情况下，我们可以通过Excel的自定义排序规则实现复杂排序。

1、创建排序规则

点击“数据”选项卡中的“排序”按钮，然后选择“自定义排序”。在弹出的对话框中，选择你要排序的列，并选择“自定义列表”。

2、输入自定义列表

在自定义列表中，输入排序顺序：1, 2, 3, 1, 2, 3。点击“添加”按钮，然后点击“确定”。

3、应用排序规则

返回排序对话框，选择刚刚创建的自定义列表作为排序依据，点击“确定”。数据就会按照123123顺序进行排序。

四、通过公式生成排序索引

1、生成索引

在辅助列中生成123123的循环序列。假设数据在A列，从A2开始。在B2中输入公式 =MOD(ROW()-2, 3) + 1，然后将公式向下拖动填充。

2、生成排序索引

在C列中生成排序索引。在C2中输入公式 =A2 & B2，然后将公式向下拖动填充。

3、按排序索引排序

选中整个数据区域（包括辅助列和排序索引列），然后依次点击“数据”选项卡中的“排序”按钮。在弹出的对话框中，选择排序索引列（C列）作为排序依据，按照升序排序。这样，数据就会按照123123顺序排列。

通过以上几种方法，你可以轻松实现Excel数据的123123排序。选择适合你需求的方法，并按照步骤操作，即可完成排序任务。