VBA 整理
#VBA 整理
##定义数组
Dim arr As Variant
arr = 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
原创
2020-09-21 14:20:40 ·
197 阅读 ·
0 评论