如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中

whdzyw12 · 发表于 2009-4-1 15:34

现在我需要将一个EXCEL中的多个SHEET中内容合并到一个SHEET中，让所有的内容按照原有的顺序排列，例如，sheet1有10行，sheet2有20行，sheet3有30行，合并到sheet4后sheet4共有60行！！！

急急急急！！！

dafang5 · 发表于 2009-4-1 15:50

传一下附件吧,这个实现起来不难.要通过宏来实现.能看到你的文件,做起来方便.

whdzyw12 · 发表于 2009-4-1 16:14

大家帮忙看看，谢谢！！！

BXLMLF · 发表于 2009-4-1 16:55

试一试，数据菜单中的合并计算。

lovebl1986 · 发表于 2009-4-1 16:58

用这个宏：
Sub Merge()
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
End Sub

有个缺陷。。。合并的时候把所有的title 也都合并过来了。。。要再filter一下。。。

俺水平有限～～～

whdzyw12 · 发表于 2009-4-1 17:31

怎么操作呀?能说的具体点吗？看不懂！！！

谢谢！！！

hbqchhp · 发表于 2009-4-1 18:43

这样行吗?

本工作簿汇总.rar (21.12 KB, 下载次数: 1853)

dhygritek · 发表于 2009-7-7 15:16

这个不错，我正在找，就两条语句，解决了我的大问题！，非常感谢！

frankonlee · 发表于 2011-5-26 16:49

希望未来可以成为VBA资深专家。

放驴的熊 · 发表于 2013-10-18 14:54

hbqchhp 发表于 2009-4-1 18:43
这样行吗?

我用了你提供的代码，显示不能对合并单元格进行修改，是怎么回事啊，求指教

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

[求助] 如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中

就是这样的表

回复 1楼 whdzyw12 的帖子

评分

我在努力学习中