VBA 整理
定义数组Dim arr As Variantarr = Array("1001", "1201", "1571", "1701", "2102")读取文件 Dim wk As Workbook Dim ws As Worksheet Set wk = Application.Workbooks.Open(path) Set ws = wk.Worksheets(1) '获取sheet最大行数 maxRow = ws.[A500000].End(xlUp).
原创
2021-07-04 20:52:56 ·
450 阅读 ·
0 评论