Excel 水平排序-每行独立于其他行
我希望对数据(字符串)进行水平排序,但我希望对每一行独立于其他行进行排序 唯一的方法是手动选择每一行并对其排序吗 我根本不是VBA专家,我可以用c#或java实现,但我希望excel中有这个函数Excel 水平排序-每行独立于其他行,excel,vba,sorting,Excel,Vba,Sorting,我希望对数据(字符串)进行水平排序,但我希望对每一行独立于其他行进行排序 唯一的方法是手动选择每一行并对其排序吗 我根本不是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
谢谢大家! 这里是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
+回答得好。但是,如果将
单元格(Rows.Count,1).End(xlUp.Row
替换为ActiveSheet.UsedRange.Rows.Count
,则无需假设列A包含内容。