如何按字母顺序排列Excel中的行，而不包括sorting中的所有列？

尝试按行按字母顺序对数据进行sorting，但不是在每行的所有列中sorting。

例如：按字母顺序排列J7到U7，然后按照J8到U8顺序排列，直到通过U2000到J2000，同时将每个项目保留在其行内（如同第7行中的所有单元格应该在第7行的末尾）。

似乎我需要使用macros/ VBA，因为Excel只允许您按字母顺序sorting一行。 如果我select多行进行sorting，它仍然只sorting第一行。

至于我可以用什么样的macros，我已经做了一些研究，但似乎没有任何工作。 我发现的一件事就是按照数字来sorting，但不能按字母顺序sorting。

这是我一会儿得到的。 我logging了一个自己的macrosselect和sorting的行，以便我希望至less得到所有的代码：

Sub Macro4() ' ' Macro4 Macro ' ' Keyboard Shortcut: Option+Cmd+j ' Dim lngIndex As Long Dim strArray(9 To 11000) As String Dim intCounter As Integer Dim x As Integer intCounter = 1 x = 9 For lngIndex = LBound(strArray) To UBound(strArray) intCounter = intCounter + 1 strArray(lngIndex) = intCounter x = x + 1 Range("Jx:UNx").Select ActiveWorkbook.Worksheets("export_729559 (3).csv").Sort.SortFields.Clear ActiveWorkbook.Worksheets("export_729559 (3).csv").Sort.SortFields.Add Key:= _ Range("Jx:UNx"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("export_729559 (3).csv").Sort .SetRange Range("Jx:UNx") .Header = xlNo .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply Next End Sub 

我现在正在得到的错误是“编译错误：下一个没有为”为那个“下一步”在底部。 但显然有一个更高的，就我所知，他们应该联系在一起，除非中间的“With”混淆了事情。 我已经尝试了下面它自己就像上面，以及“Next IngIndex”。

Answer 1

您的With块没有结束。 尝试像这样：

 With ActiveWorkbook.Worksheets("export_729559 (3).csv").Sort .SetRange Range("Jx:UNx") .Header = xlNo .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply End With 'I have added this line to close your With block Next