Excel VBA：对选择项中的每一行进行排序

Question

我正在尝试对选择中的每一行进行排序。 例：

排序前：

8 3 17
2 9 4
5 3 8

排序后：

3 8 17
2 4 9
3 5 8

我写了这段代码，但是不起作用：

Public Sub SortByString()
Dim row As Range
For Each row In Selection.Rows
    row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlSortColumns
Next row
End Sub

我是VBA的新手。 比我做错了吗？ 请帮忙。

Answer 1

问题出在您的Orientation参数上。 它应该是xlSortRows或xlLeftToRight：

row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlSortRows

要么

row.Sort Key1:=row, Order1:=xlAscending, Orientation:=xlLeftToRight

第一个有意义，因为您实际上是在对行进行排序。 第二个是我从宏记录器得到的。