编写一段vba代码,让一个工作簿中的所有工作表都将b列升序排列
时间: 2023-03-07 14:14:18 浏览: 119
Sub SortByBColumn()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("A1").CurrentRegion.Sort _
Key1:=Range("B1"), Order1:=xlAscending, Header:=xlYes
Next
End Sub
阅读全文