【Excel技巧】合并多个Sheet为一个的方法

【合并多个 Sheet】

合并之前，请先创建一个空白的 Sheet 作为合并目标 Sheet ，这个 Sheet 必须是第一个 Sheet 哦。
如果不合并标题行（比如第一行）则 j=1 改为 j=2
如果数据不是从第一行，或者第一列开始的，请修改 j=1 及 k=2 两行的参数。
比如 j=2 k=3 表示从第2行，第三列开始的数据。

Sub CombineSheet()

Dim i, j, k, n As Integer
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next k
n = n + 1
Next j
Next i

End Sub

意外惊喜：合并 Sheet 的功能会自动去掉超链接(HREF) 标记。
实际上，为了去掉 Excel 的所有超链接，也可以使用这个函数啊。

【合并多个Excel文件】

Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler

FilesToOpen = Application.GetOpenFilename _
(FileFilter:=“Micrsofe Excel文件(*.xls), *.xls“, _
MultiSelect:=True, Title:=“要合并的文件“)

If TypeName(FilesToOpen) = “boolean“ Then
MsgBox “没有选定文件“
End If

x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))

wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

MsgBox “合并成功完成！“

errhandler:
End Sub

【说明】

其实合并多个Excel文件的功能可以通过合并多个sheet的功能实现，可以先把多个Excel文件的所有sheet都复制到一个新的Excel文件中，然后再使用合并多个sheet的功能实现合并。

文章来源： http://www.315soft.com/topics/1008.aspx

【Excel技巧】合并多个Sheet为一个的方法相关推荐

java poi 如何合并多个sheet 为一个sheet_Java POI组件实现多个Excel文件整合成一个多Sheet的Excel文件...
代码: package com.weichai; import java.io.File; import java.io.FileInputStream; import java.io.FileOut ...
Excel快速合并多个sheet表（简单高效）快速合并多个excel请看上期内容
工作中遇到excel中有多个sheet上万条数据怎么办,哦可以复制粘贴,不,大神都不是这么干的只需要一串代码就搞定,让我们来看看吧!!! 第一步:打开我们需要的表格.可以看到我们这里是有多个sheet ...
excel两个表格数据对比_两个Excel表格合并，最有水平的处理方法
有2个Excel表格,列标题内容和顺序不完全一样.现需要把这2个表格合并到一个总表中.(按标题一一对应) 如果一列一列的粘,会非常的麻烦,如果有几十个表格合并,你会不会崩溃掉? 其实,有一个函数可以 ...
excel导入时手机号码格式错误的一个解决方法
一.问题描述使用Excel导入员工信息表时,手机号格式错误格式错误二.解决在制作工作表模板时,把单元格格式设置为[文本]格式即可. 三.一些细节 1.全选整列再设置单元格格式 2.使用顶部的 ...
多个pdf怎么合并成一个文件，用这个方法最快速
工作之后会发现,电脑上的PDF文件随着时间的推移越来越多了.因为经常要处理的PDF文件太多,每次查阅的时候都得花费不少时间去查找.适时地把一些同类型文档合并在一起会是一个好方法,所以学会把PDF合并成 ...
Excel技巧1：将符合要求的多个单元格内容合并到一个单元格
Excel技巧1 在一个区域内,如下表中,A列有多个相同的内容,而对应的同一行B列中的值不相同,需要把这些不同的B列值组合到一个单元格中. 比如把所有"Alice"对应的B列情绪合 ...
python处理多个excel文件-python多个excel文件合并成一个sheet
运营人员需要历年的订单数据,这就需要把多个文件夹下面的excel文件合并到一个sheet中,之前的解决的办法是用VBA把多个excel文件合并成一个表的多个sheet,再把多个sheet合并成一个sh ...
VBA将excel中的多个工作表sheet合成一个工作表，多个工作簿的多个工作表合并为一个工作簿
1 将excel中的多个工作表sheet合成一个工作表工作表合成前: 工作表合成后: **第一步:**在文件中新建一个工作表sheet,用来存放合成后的数据,如图所示: 第二步:点击"开发 ...
python实战:合并多个不同样式的excel的sheet到一个文件中
python实战: 使用python实现合并多个excel到一个文件,一个sheet和多个sheet中合并多个不同样式的excel的sheet到一个文件中主要使用的库为openpyxl 1.安装o ...

【Excel技巧】合并多个Sheet为一个的方法

【Excel技巧】合并多个Sheet为一个的方法相关推荐

最新文章

热门文章