excel的vba在一个工作表(vba把多个工作簿汇总到一起)

1. vba把多个工作簿汇总到一起

做了两个模拟的表，具体如下。 表1 表2 然后在表1中使用vlookup函数抽取表2的编号，公式=VLOOKUP(B2,Sheet2!A:B,2,0)，下拉。 #N/A项为表2中没有的项目，无法抽取。

2. vba将多个工作簿合并到一个工作簿

合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个 Sheet 必须是第一个 Sheet 哦。如果不合并标题行（比如第一行）则 j=1 改为 j=2如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=2 两行的参数。比如 j=2 k=3 表示从 第2行，第3列开始的数据。

Sub CombineSheet()Dim i, j, k, n As Integern = 1For i = 2 To ThisWorkbook.Sheets.CountFor j = 2 To ThisWorkbook.Sheets(i).UsedRange.Rows.CountFor k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.CountThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).textNext kn = n + 1Next jNext iEnd Sub

3. 多个工作簿数据合并vba

请参考我通常会使用的解决方法： 用编程语言表示 Filename = FILE + i 其实就是进行字符串操作，主要使用的就是&符号。 模拟代码(假设你已获得了文件名称并赋值给了file变量) dim i as intger dim filename as string i=1 filename ="" for i=1 to 145 Filename = FILE &format( i,"000") msgbox “当前文件名称为：” & Filename next i

想问下，后缀如何连接呢，我的文件后缀是.ISD。

如果你想做的完美点，就需要先将文件名称里的后缀名去除后赋值给file变量，然后调整一下filename变量的赋值语句就行了。 Filename = FILE &format( i,"000") &“.ISD” 我通常因为处理的文档都是自己用的，所以不在乎文件名称的美观性，直接就是在原文件名后面加上需要加的内容（比如时间戳啥的）与后缀。

4. vba把多个表汇总到一起

有三种方法都可以实现。只是不知您原数据形式，不能详解。

一用公式函数；

二用分类汇总；

三用数据透视表。

如果用vba就小是大作了。

供参考，祝顺利。

5. vba 合并多个工作薄

CTRL+A 全选 取消单元格合并

CTRL+G 定位空值 ，编辑栏输入 ‘’=A2（首个空值上一单元格，仔细观察可以看到首个空值单元格背景色为无色，其他空值单元格为灰色填充)）”

CTRL+ENTER完成自动填充

具体操作详见

快速取消合并单元格并填充