返回列表 上一主題 發帖

儲存格排序問題

儲存格排序問題

本帖最後由 cclo0728 於 2019-8-8 13:50 編輯

目前我用巨集錄製時,在excel都可以正常執行
很妙的我在公司的WPS卻不行
想請問用VBA寫的話,程式是如何設定
    Columns("C:I").Select
    ActiveWorkbook.Worksheets("EA&EB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EA&EB").Sort.SortFields.Add Key:=Range("E2:E100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("EA&EB").Sort
        .SetRange Range("C1:I100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

排序為訂單號碼欄位 Book1.rar (13.76 KB)
在麻煩各位指導一下,謝謝

回復 1# cclo0728
已找到排序指令,謝謝
    Range("C:I").CurrentRegion.Select '排序E排
    Selection.Sort Key1:=Range("E:E"), ORDER1:=1, Header:=x1yes

TOP

        靜思自在 : 謊言像一朵盛開的鮮花,外表美麗,生命短暫。
返回列表 上一主題