excel多列多行数据A1：F153，如何将各行数据排序？
给你一个代码吧： Sub 行排序() Dim arr(7) '如果一行不止6个单元格，那么7修改为一行的数量 1 For i = 1 To [a65536]。End(xlUp)。Row '行有多少数量就不用管了，代码自己确定 For j = 1 To 6 '如果一行单元格的数量 ?arr(j) = Cells(i, j) Next For j = 1 To 6 '如果一行单元格的数量 ?Cells(i, j) = WorksheetFunction。 Large(arr(), j) Next Next End Sub。
给你一个代码吧： Sub 行排序() Dim arr(7) '如果一行不止6个单元格，那么7修改为一行的数量 1 For i = 1 To [a65536]。End(xlUp)。Row '行有多少数量就不用管了，代码自己确定 For j = 1 To 6 '如果一行单元格的数量 ?arr(j) = Cells(i, j) Next For j = 1 To 6 '如果一行单元格的数量 ?Cells(i, j) = WorksheetFunction。
Large(arr(), j) Next Next End Sub。收起
