若果想將 Master Data 分析做以下結構
Master Data
Data Sheet 1
Chart 1
Data Sheet 2
Chart 2
Data Sheet 3
Chart 3
.
.
.
' 先 filter data
x = 'filter criteria set by user
Sheets(1).Range("a:c").AutoFilter field:=1, Criteria1:=x
Sheets.Add(After:=Sheets(Worksheets.Count + Charts.Count)).Name = x
Sheets(1).Range("a:c").Copy Destination:=Worksheets(x).Cells(1, 1)
Charts.Add
ActiveChart.Move After:=Worksheets(Worksheets.Count)
'重點是藍色字
