返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
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次一樣的巨集，懇請老師們協助，謝謝！
收藏 分享

VBALearner

帖子
102 
主題
14 
精華
0 
積分
142 
點名
0  
作業系統
Win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2016-7-31 
最後登錄
2020-3-21 

論壇贊助勳章
2#
發表於 2017-2-18 23:27 | 只看該作者
回復 1# av8d
  1. for i = 1 to 50...
  2.     Sheets(i).Range("A1:C5000").Select
  3.     ...
複製代碼
真心感謝每一位願意分享所學、指導新手的人!

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題