用VBA宏对Excel中的行进行排序。它起作用了，除了每一行的最后一个单元格。

Question

因此，我按字母顺序对这个Excel工作表进行排序，避免使用前几列。这是我的密码。不知怎么的，它工作得很好，从二三十个细胞到几百个细胞，对行进行分类。每一行都有不同数量的单元格。但它把每个细胞都分类了，除了最后一个。最后一个单元是在"z“开头的随机单元，但以"P”或"L“开头。

这是我的密码：

Sub SortRows()

Dim lngIndex As Long
Dim strArray(9 To 11000) As String
Dim intCounter As Integer
Dim sht As Worksheet, rng As Range

Set sht = ActiveWorkbook.Worksheets("Page1")
Set rng = sht.Range("J10:UN10")

intCounter = 1

For lngIndex = LBound(strArray) To UBound(strArray)

    intCounter = intCounter + 1
    strArray(lngIndex) = intCounter

    With sht.Sort
        .SortFields.Clear
        .SortFields.Add Key:=rng, SortOn:=xlSortOnValues, _
           Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange rng
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With

    Set rng = rng.Offset(1, 0)
Next

End Sub

Answer 1

测试了您的代码，它运行良好。尝试将代码放入新的工作表并进行测试。