如何在1000張表格中提取指定的內容，先舉個例子：
如圖：
在工作表中，我們如何每個表格中手錶的銷量，並把它們彙總到一個表格中！
這個模板除了提取某產品的銷量，只要涉及到提取數據的都可以參照這個思路。
下面介紹製作方法
一、效果圖
二、製作步驟（只需三步，輕鬆解決）
操作流程：建立表格--插入控件--點擊控件執行
1、建立表格
在表中中新建兩個空白表，一個命名為："data” ，另一個命名為：“提取數據”
2、插入控件
在“提取表格”中插入控件
右擊控件，複製粘貼代碼：
代碼如下：
Sub 提取數據()
Dim rng As Range
Dim B As Integer
Dim c As Integer
Dim j
j = Sheets("提取表").Cells(5, 9)
Sheets("提取表").Select
Columns("A:G").Select
Selection.ClearContents
Sheets("data").Select
Columns("A:D").Select
Selection.Delete Shift:=xlToLeft
Worksheets(1).Select
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("data").Select
Set rng = Sheets("data").Range("A65536").End(xlUp)
B = rng.Row
Sheets("data").Cells(B, 1).Select
ActiveSheet.Paste
c = Worksheets.Count
For i = 2 To c - 1
Worksheets(i).Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("data").Select
Set rng = Sheets("data").Range("A65536").End(xlUp)
B = rng.Row
Sheets("data").Cells(B + 1, 1).Select
ActiveSheet.Paste
Next
Sheets("data").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$1048576").AutoFilter Field:=1, Criteria1:=j
Columns("A:D").Select
Selection.Copy
Sheets("提取表").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
MsgBox "已提取完畢"
End Sub
3、點擊控件執行就可以實現了
三、獲取模板方式
關注我！關注我！關注我！
轉發這篇文章，備註：“好”“贊”等
關注我，私信：“1”，就可獲取模板。
如果這篇文章能夠幫到您，請轉發出去，讓更多人提高效率！謝謝
閱讀更多 excel圖表 的文章
