麻辣家族討論版版 » Excel程式區 » 如何將工作表1改寫成目前工作表

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

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

大學生 Rank: 4

帖子: 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 編輯

Range("A1:C5000").Select
ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort.SortFields.Add Key:=Range( _
"A2:A5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("工作表1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

複製代碼

以上程式碼是針對工作表1進行的，但是我的工作表有50個，想改寫成針對目前工作表，這樣就不用寫50次一樣的巨集，懇請老師們協助，謝謝！

樓主熱帖

收藏

中學生 Rank: 2

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

論壇贊助勳章

2^#

發表於 2017-2-18 23:27 | 只看該作者

回復 1# av8d

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

複製代碼

真心感謝每一位願意分享所學、指導新手的人!

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

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