excel2003怎么合并工作表
发布时间:2023-09-30 10:41:25
在excel中,想要合并两个内容相似的工作表,应该怎么设置呢?下面随小编一起来看看吧。
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.可以看到下方已经多了很多新的工作表——此时,我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。
excel合并工作表的
猜你喜欢
- Word文档的问题,如何批量删除带×(叉)的段落。看小伙伴的文档截图,估计你就懂这个题目了。就是要留下打勾的题目,把错的题目都删除。 &nb
- 管理条件格式主要包括新建条件格式规则、编辑规则、删除规则、设置多个条件规则的优先顺序操作等,要使用这些操作需要先调出“条件格式规则管理器”,
- excel表格是一款我们比较常用的办公软件,Excel中的表格具体该如何从兼容模式改到正常模式呢?下面是小编带来的关于excel表格兼容模式
- Excel2007添加单元格批注如果有一些文档来解释工作表中的某些元素常常会很有帮助。一种方法是向单元格添加批注。当需要描述一个特殊的值或解
- 书籍折页是Microsoft Word中用来创建菜单、请柬、事件程序或任何其他类型的使用单独居中折页的文档功能的选项。具体在“文件”-“页面
- 在wps文字中添加和删除页眉横线的方法:点击WPS页眉左上角“插入”→“页眉页脚” 菜单栏最右边出现“页眉页脚”快
- 在文档中图片排版是很常见的,在图片排版的过程中我们如何利用小技巧快速处理呢?下面给大家分享word图片环绕方式怎么设置的操作方法,一起来学习
- Excel中的列宽具体该如何进行操作才能固定列宽呢?下面是由小编分享的excel表格固定列宽的教程,以供大家阅读和学习。excel表格固定列
- win10电脑c盘数据如何备份呢?很多用户对此还不是很清楚,小编这里就给大家带来有关win10电脑c盘数据如何备份的回答,希望能够对大家有所
- 在Excel中可以制作各种表格,其中也可以制作库存结余量的表格,或许有的朋友并不知道库存结余量的表格该如何制作,如果不懂的朋友欢迎一起来讨论
- 近日,有网友反馈称iOS 16.0升级后出现无法退出Apple ID的问题,疑似出现大范围bug。iOS 16.0无法退出Apple ID,
- 在使用Word文档的过程中,我们有时会需要插入带圈字符,但是有的朋友可能会遇到这样的问题:插入带圈字符后,阿拉伯数字不在圆圈的正中间(参见下
- Win10系统开机需要5分钟以上怎么回事,对于一些配置老旧的电脑来说,安装了Win10系统之后非常容易出现开机变慢的情况,有些电脑开机就需要
- 打开文件时提示“您尝试打开的文件xxx.xls的格式与文件扩展名指定的格式不一致。打开文件前请验证文件没有损坏且来源可信。是否立即打开该文件
- 我们通常在做表格或者做完表格的时候会发现我的表格怎么每行都不一样高,很不好看,如果按照比较古老的方法,一点点修改,一点点拉伸缩小,会很麻烦,
- Excel中经常需要使用到把日期设置为竖着显示的技巧,竖着显示的日期具体该如何进行设置呢?下面是小编带来的关于excel表格日期设置竖着显示
- 第1步,打开Word2013文档窗口,切换到“页面布局”功能区。在“页面设置”分组中单击“分隔符”按钮,如图1所示。 &nbs
- 大家应该都有一个疑问:ahci是什么?ahci是一种新型的硬盘接口,它可以让win10在ahci模式下效率更快,所以越来越多人开始使用ahc
- 用户可以通过可读性统计信息了解Word2007文档中包含的字符数、段落数、句子数等信息,以便了解该篇文档的阅读难易程度。在Word2007中
- 在Word文档中有一个匹配左右括号功能,开启该功能后,我们输入左(,{,【后,后续输入右括号中的任意一种,系统会自动匹配为正确的符号。也就是