使用VBA对随机表进行排序

Sub SortRandomTable()
    Dim rng As Range
    Dim lastRow As Long
    Dim lastColumn As Long
    
    ' 获取随机表的范围
    Set rng = Range("A1").CurrentRegion
    lastRow = rng.Rows.Count
    lastColumn = rng.Columns.Count
    
    ' 使用冒泡排序算法对随机表进行排序
    Dim i As Long, j As Long
    For i = 1 To lastRow - 1
        For j = 1 To lastRow - i
            If rng.Cells(j, 1).Value > rng.Cells(j + 1, 1).Value Then
                ' 交换两行数据
                rng.Rows(j).Cut
                rng.Rows(j + 1).Insert Shift:=xlDown
                rng.Rows(j + 1).Cut
                rng.Rows(j).Insert Shift:=xlDown
            End If
        Next j
    Next i
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
    
    ' 输出排序结果
    MsgBox "随机表已排序完成！"
End Sub