当前位置: >
> excel2007怎么将两个工作表合并成一个
excel2007怎么将两个工作表合并成一个
已知有多个独立的excel工作簿文件,现在需要将这些文件合并到一个新的工作簿中。保留原来excel工作簿中各个excel工作表名称。如果量小,可以采用打开一个个复制的方法。
软件推荐:&&&&&& 下面小编教你excel2007怎么将两个工作表合并成一个: 将需要合并的excel工作簿文件放置在一个文件夹中。 每个文件夹中的工作簿都输入了简单的内容。 在该文件夹中,新建立一个新的excel工作簿文件。重命名为8. 打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键,选择查看代码。 在弹出的代码编辑窗口中,输入代码。注意:通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板,需要点击左上方的工程-VBA project模块,双击sheet1,即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。 在代码窗口中,黏贴下列代码: Sub CombineFiles() Dimpath As String DimFileName As String DimLastCell As Range DimWkb As Workbook DimWS As Worksheet DimThisWB As String Dim MyDir AsString MyDir =ThisWorkbook.path & &\& 'ChDriveLeft(MyDir, 1) 'find all the excel files 'ChDir MyDir 'Match =Dir$(&&) ThisWB =ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False path =MyDir FileName =Dir(path & &\*.xls&, vbNormal) Do UntilFileName = && If FileName && ThisWB Then Set Wkb = Workbooks.Open(FileName:=path & &\&& FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = && And LastCell.Address = Range(&$A$1&).AddressThen Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If FileName = Dir() Loop Application.EnableEvents = True Application.ScreenUpdating = True Set Wkb =Nothing Set LastCell= Nothing End Sub 点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表&&此时,我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。
最新推荐文章
10.5MB/中文简体
WiFi万能钥匙pc版是一款自动获取周边免费WiFi热点并建立连接的电脑软件。1、WiFi万能...操作步骤:1、在当前文件夹中新建一个工作簿:合并.xlsx2、鼠标右键点击sheet1,并点击【查看代码】,弹出VBA窗口3、将下面代码复制到VBA窗口中VBA代码如下:(若为xls格式,则将代码中xlsx改为xls)Sub&工作薄间工作表合并()&&&
Dim&FileOpen
Dim&X&As&Integer
Application.ScreenUpdating&=&False
FileOpen&=&Application.GetOpenFilename(FileFilter:=&Microsoft&Excel文件(*.xlsx),*.xlsx&,&MultiSelect:=True,&Title:=&合并工作薄&)
While&X&&=&UBound(FileOpen)
Workbooks.Open&Filename:=FileOpen(X)
Sheets().Move&After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ExitHandler:
Application.ScreenUpdating&=&True
End&Sub4、点击运行或按F5键,弹出打开文件对话框,并选中需要合并的三个文件,点击【打开】,即开始合并5、合并结果如下:—————————————————————————
【版权申明】
如非注明,本站文章均为
原创,转载请注明出处:,并附带本文链接,谢谢合作!
本文地址:http://www.zhangzhengxiong.com/?id=94。
—————————————————————————
亲!有什么想法呢?流泪0人打酱油0人开心5人鼓掌0人恐怖0人
已有2位网友发表了看法:
1#&& 17:27:01&
a1s2d3f4g5h6j7k8l9z1x2c3v4b5n6m9
2#&& 17:31:13&
【查看代码】,弹出VBA窗口如何将多个Excel工作簿合并成一个新的工作簿_百度知道
如何将多个Excel工作簿合并成一个新的工作簿
我有更好的答案
Close False
FileName = Dir()
Application.Value = &$A$1&& And LastC".Open(FileN
If FileName <, 1) 'find all the excel files
'.Worksheets
Set LastCell = WS;& ThisWB Then
Set Wkb = W
'.Address = Range(&\*.xls".Address Then
WS.Copy After.ScreenUpdating = False
path = MyDir
FileName = Dir(path & &, vbNormal)
Do Until FileName = ".Sheets.Count)
WChDriveLeft(MyDir.Sheets(ThisWChDir MyDir
'Match =Dir$(&&)
ThisWB = ThisWorkbook:=ThisWorkbook:=path & ".C".Name
Application.EnableEvents = False
A);\& & FileName)
For Each WS In Wkb.SpecialCells(xlCellTypeLastCell)
If LastCell代码 好多地方 连到一起 , 要加空格, 我帮你改好了, 已测试可用Sub CombineFiles()
Dim FileName
Dim LastCell
As Workbook
As Worksheet
Dim ThisWB
As StringDim MyDir As String
MyDir = ThisWorkbook.path & &\
采纳率:77%
为您推荐:
其他类似问题
excel的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}