如何合并不同工作表中相同单元格的文本内容到另一个工作表

winrar_one

如何合并不同工作表中相同单元格的文本内容到另一个工作表的同一个单元格；
例如，有4个工作表：工作表1，工作表2，工作表3，汇总。
这三个表中的A1单元格分别是word，excel，ppt。我想合并到汇总的A1，合并后是这个样子：“工作表1：word；工作表2：excel；工作表3：ppt；”
这个脚本可以实现吗？ 例子.rar (6.47 KB, 下载次数: 12)

2014-10-21 23:23 上传

点击文件名下载附件

TomingTang

1. 例子.rar (6.47 KB, 下载次数: 36)
   2014-10-21 23:46 上传

   点击文件名下载附件

复制代码

Sub 合并()

Dim rng As String, sht As Worksheet, str As String

rng = InputBox("单元格区域：", "请输入单元格区域:")

For Each sht In ThisWorkbook.Worksheets

    If sht.Name <> "汇总" Then

        str = str & sht.Name & "：" & sht.Range(rng).Value & "；"

    End If

Next

Worksheets("汇总").[b2].Value = str

End Sub

winrar_one

TomingTang 发表于 2014-10-21 23:46
Sub 合并()Dim rng As String, sht As Worksheet, str As Stringrng = InputBox("单元格区域：", "请输入单 ...

首先感谢回复小白的帖子，然后再请教个问题，能不能改成汇总这个表格的，比如A1这个单元格，里面的内容是其余所有的工作表的内容的合并之后的结果，格式是上面那个
再次感谢

TomingTang

1. Sub 合并()
   
2. Dim rng As String, sht As Worksheet, str As String
   
3. rng = InputBox("单元格区域：", "请输入单元格区域:")
   
4. For Each sht In ThisWorkbook.Worksheets
   
5.     If sht.Name <> "汇总" Then
   
6.         str = str & sht.Name & "：" & sht.Range(rng).Value & "；"
   
7.     End If
   
8. Next
   
9. Worksheets("汇总").range(rng).Value = str
   
10. End Sub

复制代码

看得不太懂，是这样吗？

chenqianer

TomingTang 发表于 2014-10-22 22:32
看得不太懂，是这样吗？

如果要分别合并所有子表a1、b8，m10单元格呢