返回列表下一主題上一主題發帖

儲存格排序問題

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2019-8-8 13:47 | 只看該作者

儲存格排序問題

本帖最後由 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