[已解决]求助一次性对一个工作薄内的多个工作表排序

安全网

grf1973 发表于 2015-12-8 16:55
运行下来排好了的。

能否在TEST内运行的红内的SHEET(1).SHEET(2)......等表内直接给这些列添加排序的代码

grf1973

在TEST结束前加一句 call 一次性排序 就可以了

grf1973

当然也可以分解了做在里面。比如sheets(1)
If M > 0 Then
        .Sheets(1).Range("B3").Resize(M, 14) = ARR1
        .Sheets(1).Range("B3:O" & M + 2).Borders.LineStyle = xlContinuous
        .Sheets(1).Range("A3").Resize(M, 14).Sort key1:=.Sheets(1).[o3]
End If

安全网

grf1973 发表于 2015-12-9 10:53
当然也可以分解了做在里面。比如sheets(1)
If M > 0 Then
        .Sheets(1).Range("B3").Resize(M, 14 ...

谢谢！也找到了我的日期不能排的原因了。