3859| 8
|
数据合并错误“1004” |
1学分
最佳答案稍作改动,将合并单元格语句插在宏中,马上见效!
Sub 数据合并()
Application.ScreenUpdating = False '关闭屏幕刷新,避免闪烁影响速度
Rows("2:1048576").ClearContents
With ThisWorkbook.Sheets("数据源")
Set fso = CreateObject("scripting.filesystemobject")
Set ff = fso.getfolder(ThisWorkbook.Path)
For Each f In ff.Files
If Not f.Name Like "*" & Th ...
| ||
发表于 2019-5-10 12:08
|
显示全部楼层
| ||
发表于 2019-5-10 18:17
|
显示全部楼层
| ||
| ||
发表于 2019-5-11 08:31
|
显示全部楼层
| ||
| ||
| ||
发表于 2019-5-11 18:38
|
显示全部楼层
| ||
| ||