使用VBA根据单元格中的非精确值对列表进行排序

Sub SortList()
    Dim rng As Range
    Dim lastRow As Long
    
    ' 定义要排序的范围
    Set rng = Range("A1:A10") ' 将范围更改为您要排序的实际范围
    
    ' 获取最后一行的行号
    lastRow = rng.Cells(rng.Rows.Count, 1).Row
    
    ' 使用冒泡排序算法对列表进行排序
    For i = 1 To lastRow - 1
        For j = 1 To lastRow - i
            If Not IsNumeric(rng.Cells(j, 1).Value) Then
                ' 如果单元格中的值不是数字，则将其转换为字符串进行比较
                If CStr(rng.Cells(j, 1).Value) > CStr(rng.Cells(j + 1, 1).Value) Then
                    rng.Cells(j, 1).Cut
                    rng.Cells(j + 1, 1).Insert Shift:=xlDown
                End If
            Else
                ' 如果单元格中的值是数字，则直接比较
                If rng.Cells(j, 1).Value > rng.Cells(j + 1, 1).Value Then
                    rng.Cells(j, 1).Cut
                    rng.Cells(j + 1, 1).Insert Shift:=xlDown
                End If
            End If
        Next j
    Next i
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub