- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
[發問] 請問如何依篩選欄的類別,自動建立分頁建立後並分類資料?
目前須手動建立篩選欄位內的分頁才能自動導入資料- Sub Ex()
- Dim Sh As Worksheet
- With Sheets("彙總明細")
- For Each Sh In Sheets 'Sheets : 工作表物件的集合物件
- If Sh.Name <> .Name Then '工作表的名稱<>"彙總明細"
- .Range("A1").AutoFilter Field:=2, Criteria1:=Sh.Name
- '"彙總明細" 自動篩選 篩選基準欄位:=第2欄 , 篩選準則:="工作表名稱"
- .UsedRange.Columns("a:d").Copy Sh.[a1] '"彙總明細" 自動篩選後的資料, 複製
- End If
- Next
- .Range("A1").AutoFilter '取消 "彙總明細"自動篩選模式
- End With
- End Sub
|
|
發表於 2015-8-24 17:16
| 
