将有内容的工作表简单合并

iforyou · 发表于 2012-10-2 18:59

有份工作薄，里面分了很多工作表，实际大概需要100多张分表，工作表里内容格式大体相同，但又有不同，请问如何实现将有数据的分工作表内容合并到汇总表，只需要将内容合并放在一张表里就可以了，不需要计算汇总什么的，请问该如何实现，谢谢。

明细表.rar (3.67 KB, 下载次数: 29)

子清子濯 · 发表于 2012-10-2 19:05

是需要把01 02 类似的都写在汇总里么? 按什么格式并排?中间空列么?请描述清楚

iforyou · 发表于 2012-10-2 19:17

就是等于把01 02。。。的按原格式顺序粘贴到一张新表中，中间可以空行区分一下，谢谢

dsmch · 发表于 2012-10-2 19:34

Dim i&, s&
Sheets("汇总").Activate
Cells.Clear
s = 1
For i = 1 To Sheets.Count
If Sheets(i).Name <> "汇总" Then
If Application.WorksheetFunction.CountA(Sheets(i).Cells) <> 0 Then Sheets(i).UsedRange.Copy Cells(s, 1)
s = Cells.Find("*", SearchDirection:=xlPrevious).Row + 1
End If
Next

复制代码

iforyou · 发表于 2012-10-2 20:04

谢谢帮忙，效果正是我要的

iforyou · 发表于 2012-10-2 20:55

原工作表数据有些是用公式引用其他文件的数据，合并的时候有没有办法转换成值，而不是公式引用。

dsmch · 发表于 2012-10-3 09:17

录制一段宏，复制，选择性粘贴，数值，试试……

LMY123 · 发表于 2018-4-7 10:15

同薄多表合并

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

[求助] 将有内容的工作表简单合并