将多个Excel 文件合并到一个Excel 一个sheet 中
1 Alt+F11 打开VBE ,点击插入->模块,插入新模块
2 将多个文件 放在一个文件夹下,F5 运行
Option Explicit
Sub HzWb()
Dim bt As Range, r As Long, c As Long
r = 1 'r是表头的行数
c = 15 'c是表头的列数,根据表头数据更新
Dim wt As Worksheet
Set wt = ThisWorkbook.Worksheets(1)
原创
2020-11-03 16:45:40 ·
970 阅读 ·
1 评论