vb合并excel文件(vba合并excel)

1. vba合并excel

合并之前，请先创建一个空白的 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

2. vba合并Excel时提示应用程序定义或对象定义错误

具体解决办法如下:

1.新建一个Excel,随便输入数据,修改一个格式,保存并关闭,再次打开,看看是否有变化,有变化,那么要查的就比较多了;

2.如果上述的没有变化,那么就是那一个文件的问题,按Alt+F11组合快捷键打开VBA的编辑器,在“工程-VBAProject”中查看是否有多余的工作表,如果有那么选中后在属性框的“Visible”属性修改为1(也就是第一个);

3.再回到工作簿中查看那个表中有没有你不认识的(都是英语代码类的),如果有就删除,没有的话就再双击看看VBA编辑器中的VBAProject

3. vba合并单元格代码

range("a1:B1").Merge要表示他们合并之后的单元格可以直接用cells(1,1)呀，A1的值也是他们合并了之后的值

4. vba合并Excel相同位置

请参考我通常会使用的解决方法： 用编程语言表示 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” 我通常因为处理的文档都是自己用的，所以不在乎文件名称的美观性，直接就是在原文件名后面加上需要加的内容（比如时间戳啥的）与后缀。

5. vba合并excel多表合并

sub k()if [C1]=1 thenrange("D1")= range("A2") & "," &range("B2"

) elseif [C1]=2 thenrange("D1")= range("A2") & "/" &range("B2"

) endifend sub