Excel中，怎么将多个表格中相同的标签合并？

Question

我有N个表，每个表下面的标签都一样。怎么将N个表下面的标签合并在一起。如图：三张表下边的标签分别合并。如表1中“天池镇”、表2中“天池镇”和表3“天池镇”合并在“天池镇”这一标签中。以此类推。该怎么弄啊？

Answer 1

这个需要用vba解决：
（1）新建一个 excel文件
（2）然后 act+f11 弹出vba界面
（3）把一下代码复制到vba里面
Sub wen一键合并()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'定义单个文件变量
Dim vrtSelectedItem As Variant
'定义循环变量
Dim i As Integer
i = 1
'开始文件检索
For Each vrtSelectedItem In .SelectedItems
'打开被合并工作簿
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "") '关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
（4）运行追问

act是哪个键？

Answer 2

你有N个工作表，看似数据很清楚，但是要一个表一个表地去找，真不知道你平时的工作烦不烦啊。
其实，只要在村组前面插入一个列，把镇名称写上并把所有的数据全部复制到一个工作，只要用筛选功能就能轻松选出想要的镇的数据，就能够实现一个表管理N个镇的目标，查查轻松管理方便，何必要这样找来找去找哪个镇呢。
你今天的这个问题还是没有说清楚想要做什么，合并标签是没有办法的，工作表内数据若要整合只能用复制粘贴的方式一个一个地操作吧。

Answer 3

可以用VBA解决你的问题，需要的话留Q发文件