ByVal xlsCommonSheet AsString, ByVal startRowCopy As Long)
‘ 打开的工作簿对象
Dim openWb As Workbook
‘ 工作表中最后一个数据单元格所在的行
Dim lastRowx As Long
‘ 打开工作簿
Workbooks.Open (xls)
Set openWb = Workbooks(ActiveWorkbook.Name)
With openWb.Sheets(xlsCommonSheet)
.Select
lastRowx = lastRow()
If lastRowx > Then
.Rows(startRowCopy &”:” & lastRow).Copy _
thisWb.Sheets(combinedSheet).Range(“A” & pastePtr)
pastePtr = pastePtr + (lastRowx -startRowCopy) + 1
‘ 导入数据的工作簿名
importPtr = importPtr + 1
thisWb.Sheets(importedSheet).Range(“A”& importPtr) = openWb.Name
End If
End With
‘ 关闭工作簿
Workbooks(openWb.Name).CloseSaveChanges:=False
End Sub
Private Function lastRow() AsLong
lastRow =
If WorksheetFunction.CountA(Cells) > Then
‘按行向后搜索
lastRow =Cells.Find(What:=”*”, After:=[a1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
End Function
Private Sub resetDefault()
‘ 重置应用程序屏幕刷新和计算模式
Application.ScreenUpdating = True
Application.Calculation =xlCalculationAutomatic
End Sub
运行main过程，弹出如下所示的对话框 。

选择“是”按钮，弹出如下所示的选择文件对话框 。


导入到要合并的工作簿所在的文件夹，选择要合并的工作簿文件，单击“打开”按钮 。如果一切顺利，则合并数据完成，并弹出如下所示的信息 。


我们可以查看结果 。在“导入工作簿名”工作表中，列出了已经合并数据的工作簿名，如下所示 。


在“合并工作表”工作表中，是合并后的数据，如下所示 。
【excel图表怎么合并多个工作簿中的数据】

猜你喜欢

• excel怎么根据人名提取相应的数据
• 怎么按excel顺序自动分配数字编号？
• excel怎么识别带有图片的单元格？
• 淘宝价格保护怎么操作？有哪些作用？
• 超级推荐新品怎么开？人群怎么选择？
• 淘宝标题每天都要优化吗？怎么优化?
• 天猫怎么优化类目排名？如何增加类目？
• 淘宝省钱卡怎么被邀请开通？如何使用淘宝省钱卡？
• 淘宝保证金怎么退出来？缴纳保证金有用吗？
• 精选26句 关于第一条朋友圈怎么发