Filme的专栏

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)