0

我想对我的数据(字符串)进行水平排序,但我想独立于其他行对每一行进行排序。

这样做的唯一方法是选择手动选择每一行并对其进行排序吗?

我根本不是 VBA 专家,我可以在 c# 或 java 中做到这一点,但我希望这个函数存在于 excel 中......

谢谢!

4

1 回答 1

1

这是VBA,假设您的最后一行在A列中有数据:

Sub Macro1()
Dim lLastRow As Long, lLoop As Long

lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

'turn off updates to speed up code execution
With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
End With


For lLoop = 1 To lLastRow


Rows(lLoop).Sort key1:=Cells(lLoop, 1), order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
                    False, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal, DataOption2 _
                    :=xlSortNormal


Next

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayAlerts = True
End With


End Sub
于 2012-10-25T22:41:42.903 回答