我想对我的数据(字符串)进行水平排序,但我想独立于其他行对每一行进行排序。
这样做的唯一方法是选择手动选择每一行并对其进行排序吗?
我根本不是 VBA 专家,我可以在 c# 或 java 中做到这一点,但我希望这个函数存在于 excel 中......
谢谢!
这是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