摘要：
Dim s$, fNm$ '定义公共变量：关键词s和文件名结果fNm Sub FindFile() Dim Arr, i&, pth$, ML, MT, MW, MH, shp Arr = [a1].CurrentRegion With Cells(2, 2) MW = .Width MH = .H 阅读全文
摘要：
.Range("I" & j & ":I" & j + 384) Sub RXT() Dim i%, n%, m%, j%, x% Dim wb As Workbook Dim ws As Worksheet Dim mypath$, myname$ m = 6 i = 1 j = 6 arr = 阅读全文