把EXCEL一张表中插入的多个工作表合并到一张表上

yettie · 发表于 2010-11-18 16:30

就是把一张EXCEL中的多张表快速合并到一张表里面除了一张张的复制以外

zqbily · 发表于 2010-11-18 16:45

先下来,看看,

sjzaccountant · 发表于 2010-12-10 13:58

自己水平不够啊。

grq0610 · 发表于 2010-12-30 17:07

我也有同样的问题

海棠 · 发表于 2011-1-6 12:31

不是很懂！！！

phz1234 · 发表于 2011-4-4 23:28

本坛上找的，看看是否符合要求：
Sub 合并()'合并或复制到一个表-无格式和公式
Dim i%
Range("a2:Z" & Range("a65536").End(3).Row + 1).Clear
For i = 1 To Sheets.Count - 1
Range("a" & Range("a65536").End(3).Row + 1 & ":Z" & Range("a65536").End(3).Row - 1 + Sheets(i).Range("a65536").End(3).Row).Value = Sheets(i).Range("a2:Z" & Sheets(i).Range("a65536").End(3).Row).Value
Next
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 把EXCEL一张表中插入的多个工作表合并到一张表上