SUB SplitRange
'关闭屏幕刷新
Application.ScreenUpdating = FALSE
'禁用事件
Application.EnableEvents = FALSE
'禁止显示提示和警告消息
Application.DisplayAlerts = FALSE
ThisWorkbook.Worksheets("清单").SELECT
'声明字符串类型的数组
DIM STR() AS STRING
DIM STR1() AS STRING
'获取当前工作簿中”清单“工作表的第二列的行数
lastrow = ThisWorkbook.Worksheets("清单").CELLS(ROWS.COUNT,2).END(XLUP).ROW
'从第三行开始循环
FOR i = 3 TO lastrow
workbookName = ThisWorkbook.Worksheets("清单").CELLS(i,8).VALUE
'打开工作簿
Workbooks.OPEN (workbookName)
lastrow1 = Workbooks(workbookName).Worksheets("清单"
VBA之批量进行工作簿及工作表循环查找内容
最新推荐文章于 2023-02-11 12:09:19 发布