返回列表 上一主題 發帖

[發問] 如何將工作表1改寫成目前工作表

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-2-18 11:24 | 顯示全部帖子

[發問] 如何將工作表1改寫成目前工作表

本帖最後由 av8d 於 2017-2-18 11:25 編輯
  1.     Range("A1:C5000").Select
  2.     ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort.SortFields.Clear
  3.     ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort.SortFields.Add Key:=Range( _
  4.         "A2:A5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  5.         xlSortNormal
  6.     With ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort
  7.         .Header = xlYes
  8.         .MatchCase = False
  9.         .Orientation = xlTopToBottom
  10.         .SortMethod = xlPinYin
  11.         .Apply
  12.     End With
複製代碼
以上程式碼是針對工作表1進行的，但是我的工作表有50個，想改寫成針對目前工作表，這樣就不用寫50次一樣的巨集，懇請老師們協助，謝謝！
收藏 分享

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題