本帖最后由 安全网 于 2015-12-9 10:45 编辑
求助一次对多个工作薄内的表1/表2/表3对应的O/P/Q内数据从小到大排序,标题栏不参与
- Sub 一次性排序()
- Dim Sh As Worksheet
- arr = Array("O", "S", "U", "R", "O", "O" "T")
- For i = 1 To 7
- Set Sh = Worksheets(i)
- r = Sh.[a65536].End(3).Row
- Sh.Range("a3:z" & r).Sort key1:=Sh.Cells(3, arr(i - 1)), Order1:=xlAscending
- Next
- End Sub
复制代码
|