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专家,我可以用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

+回答得好。但是,如果将
单元格(Rows.Count,1).End(xlUp.Row
替换为
ActiveSheet.UsedRange.Rows.Count
,则无需假设列A包含内容。