如何从多个Excel表中提取部分相同的数据生成单一的一个Excel文件

如题所述

具体操作步骤如下:

1、首先,
 sheet1的A列和sheet2的A列具有相同的数据。可以通过编写vba代码用相同的数据填充sheet3的A列,如下图所示,然后进入下一步。

     

2、其次,单击菜单栏左上角的[文件]-[另存为],如下图所示,然后进入下一步。

     

3、接着,在弹出窗口中,将[保存类型]选择为[Excel宏工作簿],再单击[确定],如下图所示,然后进入下一步。

     

4、然后,打开刚刚另存为的启用了宏的工作簿,右侧将出现一个黄色感叹号 ,如下图所示,然后进入下一步。

     

5、随后,在工作表中,单击菜单栏[开发工具],再单击下方的[Visual
 Basic],如下图所示,然后进入下一步。

     

6、接着,将进入VBA编辑界面,单击菜单栏中的[插入],然后在下拉菜单中选择[模块],如下图所示,然后进入下一步。

     

7、然后,在模块窗口中输入代码:

Sub 筛选相同数据(),Set Rng = Sheet1.Cells(Rows.Count, 1).End(xlUp)

Set rngs = Sheet2.Cells(Rows.Count, 1).End(xlUp)

For Each rn In Sheet1.Range("a3", Rng)

For Each rns In Sheet2.Range("a3", rngs),If rn = rns Then i = i + 1: Sheet3.Cells(i + 1, 1) = rn NextNextEnd Sub。

如下图所示,然后进入下一步。

     

8、随后,单击[开发工具]-[插入],插入表单控件,如下图所示,然后进入下一步。

     

9、接着,将表单控件命名为“筛选相同数据”,并将其与编写的Visual  Basic代码相关联,如下图所示,然后进入下一步。

     

10、最后,单击【筛选相同数据】按钮,将立即过滤工作表1的A列和工作表2的A列中的相同数据,并将其输入到工作表3的A列中。如下图所示。这样,问题就解决了。

     

温馨提示:答案为网友推荐,仅供参考
相似回答