拆分、合并、汇总工具2.0版

Ramses_king · 发表于 2017-6-20 12:55

学习

a12366 · 发表于 2017-6-20 16:41

看看

oughouz · 发表于 2017-6-21 23:20

看看是什么，学习一下。

ttpping · 发表于 2017-6-22 09:54

下载使用下

贪食小魔女 · 发表于 2017-6-23 22:58

学习

g407y2 · 发表于 2017-6-28 11:10

学习学习

zl17252148 · 发表于 2017-6-28 12:56

谢谢分享

boluobo210 · 发表于 2017-7-6 10:42

ddddddddddddddd

欢哥笑语 · 发表于 2017-7-9 10:26

Sub SelectFile()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
'Application.ScreenUpdating = False
Application.DisplayAlerts = False
Cells.Delete Shift:=xlUp

Dim FileName As Variant
FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls", , "请选择要分表的工作表所在的位置！", , 0)

327662552 · 发表于 2017-7-11 08:56

谢谢分享！！！

		自动登录	找回密码
密码			注册