Excel合并同名表用VBA
时间: 2023-03-24 13:01:56 浏览: 75
好的,下面是一个示例VBA代码,可以将两个名字相同的Excel工作表合并到一个新工作表中:
```
Sub MergeWorksheets()
Dim ws As Worksheet, wsNew As Worksheet
Dim rng As Range, rngNew As Range
'创建一个新工作表
Set wsNew = ThisWorkbook.Worksheets.Add
'设置新工作表的名称
wsNew.Name = "Merged Worksheets"
'遍历每个工作表
For Each ws In ThisWorkbook.Worksheets
'如果工作表的名称与新工作表的名称不同
If ws.Name <> wsNew.Name Then
'如果工作表的名称与新工作表的名称相同
If ws.Name = wsNew.Name Then
'选择工作表中的所有单元格
Set rng = ws.UsedRange
'在新工作表中的最后一行下方插入值
Set rngNew = wsNew.Cells(wsNew.Rows.Count, 1).End(xlUp).Offset(1)
'将工作表中的单元格复制到新工作表
rng.Copy rngNew
End If
End If
Next ws
End Sub
```
这个代码将创建一个名为"Merged Worksheets"的新工作表,并将所有具有相同名称的工作表的数据合并到其中。你可以根据自己的需要修改代码,以满足更具体的要求。