Excel合并工具 v1.1 电脑版

Excel合并工具电脑版是款针对办公中Excel软件所打造的合并工具。Excel合并工具正式版既能按行合并，也能按列合并，其中还分为了兼容模式和快速模式。Excel合并工具中用户只需选择需要合并的表格然后轻轻一点就能轻松合并目标表格中的所有数据了。这款软件适用于拥有相同标题行和数据行的普通表格文件,支持全系ffice和wps表格。

Excel合并工具软件介绍

Excel合并工具可快速的合并excel表格文件非常适合每天要大批量处理excel表格的用户，Excel合并工具既能按行合并，也能按列合并，其中还分为了兼容模式和快速模式，在合并时，也可以将子文件夹的excel表格合并进来，在一些excel办公情景下，还是非常实用的。

软件适用于标题行+嫩据行的普通表格。要求将文件放在同一个文件夹中，结构相同，最多26列，数据里不限。正常使用需安装WPS或Office。

Excel合并工具软件特色

1.可将多个Excel文件中的所有表合并到一个excel文件的一个表中。

2.可将多个Excel文件中的表分别对应合并到一个Excel文件的各对应表中。

3.可将所有Excel文件中所有工作表合并至每个Excel文件中的第一个工作表中并以“合并+当前文件名”保存。

4.可将所有Excel文件中指定工作表合并至一个Excel文件中的各个工作表中。

5.可将各工作表对应单元格的数值进行累加合并。

6.可将各工作表对应单元格的数据进行连接合并。

7.可将多个Excel文件中的指定工作表的所有列进行横向简单合并。

8.可将多个Excel文件中的指定工作表的所有列进行横向智能合并。

9.用户可选择只合并奇数表或偶数表。

10.用户可自定义要合并的表。

11.可设置合并的起始行及末尾结束行。

12.可设置Excel文件打开密码。

13.可设置合并的内容为全部.公式.数值.格式.边框除外等。

14.用户可设置合并文件保存路径及保存文件名。

Excel合并工具合并代码

Option Explicit

Sub 汇总2()

Dim i%, j%, f$, k%, n%, m%

Dim wb As Workbook, sht As Worksheet

Dim d As Object, s

Dim arr, arr1()

Set d = CreateObject("scripting.dictionary")

s = Timer

f = Dir(ThisWorkbook.Path & "*test*.xlsx")

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Do While f <> ""

Set wb = Workbooks.Open(ThisWorkbook.Path & "" & f)

For Each sht In Worksheets

sht.Activate

i = [a100000].End(3).Row

arr = Range("A3:D" & i)

For k = 1 To UBound(arr)

If Not d.exists(arr(k, 1) & arr(k, 2) & arr(k, 3)) Then

n = n + 1

d(arr(k, 1) & arr(k, 2) & arr(k, 3)) = n

ReDim Preserve arr1(1 To 4, 1 To n) '必须重新定义数组的维度

arr1(1, n) = arr(k, 1)

arr1(2, n) = arr(k, 2)

arr1(3, n) = arr(k, 3)

arr1(4, n) = arr(k, 4)

Else

m = d(arr(k, 1) & arr(k, 2) & arr(k, 3))

arr1(4, m) = arr1(4, m) + arr(k, 4)

End If

Next k

Erase arr

Next sht

wb.Close False

f = Dir

Loop

Range("A2").Resize(d.Count, 4) = Application.Transpose(arr1)

Range("A1:D1") = Array("名称", "代号", "长度", "数量")

ActiveWorkbook.Worksheets("汇总2-字典").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("汇总2-字典").Sort.SortFields.Add Key:=Range("A8"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("汇总2-字典").Sort

.SetRange Range("A2:D10")

.Header = xlNo

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

MsgBox "汇总报表用时" & s - Timer & "秒"

End Sub

Excel合并工具安装步骤

1.在本地下载软件包，解压，运行“EXE.文件”

2.双击打开

3.本软件为绿色软件，无需安装，即可使用

Excel合并工具软件注意

1.要在工作簿所在文件里新建一个工作簿，把这段代码放到VBE编辑器中，并存为.xlsm格式。

2.f = Dir(ThisWorkbook.Path &"*test*.xlsx")这句代码是用来识别你文件夹下文件名称的，其实中间的test没有必要写，我这是看每个文件的文件名都有test，才这样写的。写成：f = Dir(ThisWorkbook.Path & "*.xlsx") 就行。

Excel合并工具更新日志

1.修正了其它bug；

2.优化了软件的兼容性

小编推荐：Excel合并工具作为办公应用里面十分出色的软件，小编强力向您推荐，下载了就知道有多好。小编还为您准备了有道笔记、天正建筑下载、adobe indesign、博购企业名录搜索软件