如何提取<em>excel</em>表提取一个数据-vbe excel,vba编辑器是什么

工具/材料：Microsoft Office Excel2016版，Excel表格。 

1、首先选中Excel表格，双击打开。 

zhidao查看大图" class="ikqb_img_alink">

2、然后在该界面中，版选中“方方格子”里“工作表”权里“汇总拆分”按钮。 

3、再者在该界面中，选中“汇总大师”选项。 

4、之后在该界面中，点击左侧“多簿汇总到一表”选项。

5、接着在该界面中，点击“开始”按钮。 

6、其次在该界面中，点击右侧的“添加文件”按钮。 

7、接着在该界面中，选中要提取的多个工作表。 

8、其次在该界面中，点击右下角的“打开”按钮。 

9、之后在该界面中，选择“区域”和“提前数值”。

10、其次在该界面中，点击右下角的“开始”按钮。 

11、然后在该界面中，显示提取成功，点击“确定”按钮。 

12、最后在该界面中，显示多个工作表中提取的数据。

在工作表标签百上击右键，查看代码度。

在VBE窗口中，点“插入”，知模块。将以下代码粘贴到模块代码窗道格中，ALT+F8运行该宏，就行了。专
附件中有样本。

Sub 数据提取属()
For i = 2 To Worksheets.Count
Sheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]
Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6]
Next
End Sub

有三种办法可以进入vbe编辑窗口

1. 使用alt+f11组合键

2. 鼠标放置到工作表标签，右击鼠标，点击查看代码

3. 开发工具中点击  visual basic 按钮

下面依次使用三种方式打开vbe窗口

在工作表标签上击右键，查看代码。

在VBE窗口中，点zhidao“插入”，模块。将以下版代码粘贴到模块代码窗格中，ALT+F8运行该宏，就行了。
附件中有样本。

Sub 数据权提取()
For i = 2 To Worksheets.Count
Sheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]
Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6]
Next
End Sub