总是死机，有时候又能运行，纳闷了！

调试一下，一步一步找看哪错了

调试又没有地方有问题
但是一运行就卡死

for
....
next
中间...部分改为
thisworkbook.sheets(1).range("q65536").end(xlup).offset(1).resize(2).value=sht.range("i4:i5").value
这句话的意思是将每个sheet的i4:i5值追加到汇总sheet的q列.
ps: vba中不需要多余的active和select操作,能用赋值别用copy.

workbooks(index)表示工作簿不可靠，还有到底是A列还是Q列。
dim wkb as workbook
……
set wkb=workbooks.open(……)
for each sht in wkb.worksheets
sht.range(……).copy
thisworkbook.worksheets(……).range("A65535").end(xlup).pastespecial ……
next
wkb.close false
另外文件循环也有可能陷入死循环

谢谢🙏