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

最新推荐文章于 2024-05-06 00:56:47 发布

Mavey__Loo

最新推荐文章于 2024-05-06 00:56:47 发布

阅读量3.6k

点赞数 1

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/Mavey__/article/details/125072503

版权

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