VBA之批量进行工作簿及工作表循环查找内容

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("清单"