excel表格如何将多个工作簿窗口合并
发布时间:2023-07-18 02:29:21
Excel中需要把多个窗口的工作簿进行合并具体该如何合并多个工作簿窗口呢?接下来是小编为大家带来的excel将多个工作簿窗口合并的教程,欢迎大家来到学习。
excel表格将多个工作簿窗口合并的方法
合并多个工作簿窗口步骤1:将需要合并的excel工作簿文件放置在一个文件夹中。
合并多个工作簿窗口步骤2:每个文件夹中的工作簿都输入了简单的内容。
合并多个工作簿窗口步骤3:在该文件夹中,新建立一个新的excel工作簿文件。重命名为8.
合并多个工作簿窗口步骤4:打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键,选择查看代码。
合并多个工作簿窗口步骤5:在弹出的代码编辑窗口中,输入代码。注意:通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板,需要点击左上方的工程-VBA project模块,双击sheet1,即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。
合并多个工作簿窗口步骤6:在代码窗口中,黏贴下列代码:
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
合并多个工作簿窗口步骤7:点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时,我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。
猜你感兴趣:
1.excel2007多个工作簿窗口合并的教程
2.如何合并单个excel表中的多个工作表
3.excel多个表格合并成一个工作表的方法
4.excel怎么合并多个工作表


猜你喜欢
- 微软最近发布了一个新的预览更新Build 25193,此版本还带有一个隐藏功能,可以让在平板电脑(即触摸屏设备)上使用 Windows 11
- 许多用户都知道,Win10电脑自带了一个人脉功能的应用。许多用户可能根本用不到这个功能,但是还是会有部分用户使用到这个功能,而最近有用户在使
- 如果我们想要对自己电脑的操作系统进行重新安装的话,对于官方正版win10怎么安装这个问题小编觉得我们可以在系统部落进行下载安装即可。系统部落
- 我们常常听到缩水U盘,用户会觉得坑爹到极致,但在入手U盘的时候,我们有什么必杀绝技,可以判断U盘是否为缩水,如果是,有没有什么方法可以快速对
- YouTube提供了大量的视频库,可以让我们微笑,傻笑,哭泣,或者能让我们解一下我们周围的世界。本教程小编将向您介绍如何在Mac上下载You
- Win10系统出现蓝屏错误0x0000003B怎么办?出现这个问题的原因有很多,很可能导致硬件与系统之间不协调,导致蓝屏等问题,下面分享一个
- wps文字中有专属于中国的版式,如果我们想要使用该版式,那么,应该如何设置呢?下面就让小编告诉大家wps文字如何设置中国特色版式。wps文字
- 距离win10正式版本发布越来越近,但是很多用户还是迫不及待的体验了不少win10的预览版本。对此,在更新的过程中,不少用户表示在更新101
- 最近有用户反映刚升级到Win10系统后遇到了问题,Win10系统电脑安装不了软件,不知道怎么解决,这是怎么一回事呢?针对这一问题,本篇带来了
- 全新的第 4 代 iPad Air 无疑是今天苹果发布会上的压轴产品,不仅抢在 iPhone 12 之前首发 A14 仿生芯片,还是苹果首款
- 用户在使用电脑的过程中,总会遇到各种各样的问题。就有win10用户觉得任务栏字体太小了,看起来非常吃力,有什么方法可以调节任务栏字体大小吗?
- windows7怎么设置屏幕保护,想必有很多的朋友都不会吧,下面的教程或许对大家有所帮助,感兴趣的朋友可以参考下哈,希望对大家有所帮助哈1.
- 某些文件类型可以直接修改后缀,然后也可以使用。那么,Win8怎么改文件后缀呢?Win8怎么改文件后缀之前,需要先显示文件后缀。打开“计算机”
- excel表格中想要制作一个车辆记录,为了方便记录,我们就可以数据有效性来制作。以下是小编为您带来的关于Excel2016表格制作车辆行驶记
- 我们在做PPT的时候,经常需要处理一些文字特别少或者特别多的页面,无论是遇到哪一种情况,往往都会让许多人头痛,不会处理。 字太少直
- 如果显示器经常出现闪屏的问题,可能是刷新率没设置好导致的,下面就给大家介绍Win7系统修改显示器屏幕刷新率的方法,希望可以帮助到大家。1、首
- 很多用户在电脑使用了一段时间之后即使电脑没有出现问题,也会重装系统,让电脑运行的更加流畅一点,电脑也使用的更加方便一点。但是有的用户把自己的
- 使用WPS演示的一系列操作看起来很简单,真正自己制作起来却经历了不少挑战;很多专业设计制作PPT幻灯片的公司在给客户做好幻灯片以后会将这些幻
- iOS 13 为 iPhone 带来了更多新功能,如果您经常使用备忘录,不妨了解下以下三个小技巧:创建文件夹并整理您的备忘录在备忘录应用中,
- 大家都知道360安全卫士是一款杀毒软件,它的作用是清理系统的病毒和电脑的垃圾,保护电脑的安全,可是有Win7用户反映说自己在安装程序的时候被