分类
大小:.32M更新:2019-06-06
类别:办公软件系统:WinAll,WinXP,Win7,win8
Excel合并工具1.1绿色版这里为大家带来!这是一款绿色免费的Excel表格数据合并工具,具有简单易用的特点,用户只需选择需要合并的表格然后轻轻一点就能轻松合并目标表格中的所有数据了。欢迎有需要的朋友前来西西下载使用!
工作中经常要把Excel发给学生填数据,之后还要合并,很是劳神。网上找到的不是要钱,就是太麻烦,所以开发本软件。
软件适用于标题行+嫩据行的普通表格。要求将文件放在同一个文件夹中,结构相同,最多26列,数据里不限。正常使用需安装WPS或Office。
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
1.要在工作簿所在文件里新建一个工作簿,把这段代码放到VBE编辑器中,并存为.xlsm格式。
2.f = Dir(ThisWorkbook.Path &"\*test*.xlsx")这句代码是用来识别你文件夹下文件名称的,其实中间的test没有必要写,我这是看每个文件的文件名都有test,才这样写的。写成:f = Dir(ThisWorkbook.Path & "\*.xlsx") 就行。
日常轻单办公软件.46M0.8官方版
查看用药参考PC版办公软件M2.2.8官方版
查看通用数据采集软件申报文件检查软件办公软件.54MV2.3版
查看天天流水账办公软件.67M1.7.8.0
查看新汤简单收支管理系统办公软件MPC版
查看极速pdf编辑器办公软件MV2.0.3.0 官方版
查看企业每日晨报生成器办公软件Mv3.7 绿色版
查看云核销app办公软件Mv5.0.4安卓版
查看公式计算器办公软件MV7.68绿色免费版
查看金猫店淘淘宝客软件办公软件M1.9.2免费版
查看Solid Automator办公软件Mv9.1.5565.760 官方中文版
查看闪卡题库(FlashCard Magic)办公软件Mv3.07官方版
查看SmarThru Office三星文档管理软件办公软件MV2.10.00.07官方版
查看Excel考勤表(自动公式化统计)办公软件.04M绿色版
查看智讯会员通电脑版办公软件MV2.8.1官方PC版
查看EXCEL大乐透分析组合过滤软件办公软件M可以更新数据
查看小猪office文件查找替换助手办公软件M1.0绿色版
查看青岛浩航报价系统办公软件Mv1.0.0.1
查看伯乐助手办公软件Mv2.3.19免费版
查看飞书会议PC版办公软件M3.18.2
查看干部管理系统软件免费版办公软件Mv1.0官方版
查看普实AIO7电脑版办公软件M1.0.0
查看ppt幻灯片制作软件办公软件M永久激活版
查看金山pdf转word独立版办公软件Mv10.1.0.7563免费版
查看点击查看更多