[已解决]排序的代码求助

安全网 · 发表于 2015-10-20 09:24

本帖最后由安全网于 2015-10-20 11:27 编辑

一个工作薄内有3个工作表，第一个工作表按B列由小到大排序，第二个工作表按D列由小到大排序，第三个工作表按G列由小到大排序，表格的A1这一行是合并的单元格，A2是标题栏，从第三行开始排序的VBA代码求助

最佳答案

yorkchenshunan

2015-10-20 10:28

见附件

Sub paixu()
With Sheets(1)
.Range("a3", .Range("a3").End(xlToRight).End(xlDown)).Sort .Range("b3"), xlAscending, , , , , , xlNo
End With
With Sheets(2)
.Range("a3", .Range("a3").End(xlToRight).End(xlDown)).Sort .Range("d3"), xlAscending, , , , , , xlNo
End With
With Sheets(3)
.Range("a3", .Range("a3").End(xlToRight).End(xlDown)).Sort .Range("g3"), xlAscending, , , , , , xlNo
End With
End Sub

复制代码

七彩屋 · 发表于 2015-10-20 09:59

上传附件方便一点

yorkchenshunan · 发表于 2015-10-20 10:28

见附件

Sub paixu()
With Sheets(1)
.Range("a3", .Range("a3").End(xlToRight).End(xlDown)).Sort .Range("b3"), xlAscending, , , , , , xlNo
End With
With Sheets(2)
.Range("a3", .Range("a3").End(xlToRight).End(xlDown)).Sort .Range("d3"), xlAscending, , , , , , xlNo
End With
With Sheets(3)
.Range("a3", .Range("a3").End(xlToRight).End(xlDown)).Sort .Range("g3"), xlAscending, , , , , , xlNo
End With
End Sub

复制代码

		自动登录	找回密码
密码			注册