標題: [發問] 如何將工作表1改寫成目前工作表 [打印本頁]

---

作者: av8d    時間: 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    時間: 2017-2-18 23:27

回復 1# av8d

1. for i = 1 to 50...
   
2.     Sheets(i).Range("A1:C5000").Select
   
3.     ...

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)