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

av8d

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

回復 1# av8d

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

複製代碼