3314| 5
|
初学VBA,求按颜色排序,详细要求请看图。 |
2学分
最佳答案Sub test()
Dim i, j
Sheets(1).Select
i = Range("a65536").End(xlUp).Row
For j = Cells(1, "B").Column To Cells(1, "AF").Column
px Range(Cells(2, j), Cells(i, j))
Next
End Sub
Sub px(rng As Range)
Dim sor As Sort
Dim sfs As SortFields
Set sor = rng.Parent.Sort
Set sfs = sor.SortFields
sfs.Clear
sfs.Add Key:=rng, SortOn:=xlSortOnCel ...
| ||
发表于 2019-12-17 22:19
|
显示全部楼层
评分 | ||
| ||
| ||