[已解决]求助按某列拆分工作表并排序

jian82372387

分别以物流表的B列内容拆分成多个工作表，再以F列内容拆分成多个工作表，除了物流表外其他拆分出来的工作表以C列时间排序（升序扩展区域）    。拆分已经写号代码了，请教以下排序如何用VBA解决。     

最佳答案

月排行榜 / 总排行榜

哥儿-

2023-1-8 19:16

jian82372387 发表于 2023-1-8 10:45
有没办法保持第一行标题不排序吗？

楼上版主已经给改过来了，完整代码如下。
Sub test()
    Dim sht As Worksheet
    For Each sht In Sheets
        If sht.Name Like "*仓库*" Then
           sht.Columns("C").Replace " ", ""
           sht.Range("A1").CurrentRegion.Sort key1:=sht.Range("C1"), order1:=xlAscending,header:=xlYes
        End If
    Next sht
End Sub

跳转到最佳答案楼层

哥儿-

Sub test()
    Dim sht As Worksheet
    For Each sht In Sheets
        If sht.Name Like "*仓库*" Then
           sht.Columns("C").Replace " ", ""
           sht.Range("A1").CurrentRegion.Sort key1:=sht.Range("C1"), order1:=xlAscending
        End If
    Next sht
End Sub

jian82372387

哥儿- 发表于 2023-1-7 19:49
Sub test()
    Dim sht As Worksheet
    For Each sht In Sheets

有没办法保持第一行标题不排序吗？

哥儿-

jian82372387 发表于 2023-1-8 10:45
有没办法保持第一行标题不排序吗？

楼上版主已经给改过来了，完整代码如下。
Sub test()
    Dim sht As Worksheet
    For Each sht In Sheets
        If sht.Name Like "*仓库*" Then
           sht.Columns("C").Replace " ", ""
           sht.Range("A1").CurrentRegion.Sort key1:=sht.Range("C1"), order1:=xlAscending,header:=xlYes
        End If
    Next sht
End Sub