软件:excel
版本:office 365
想请教各位前辈，我想将多个开启的档案内容里搜寻到HHH后移到右边一格储存格的值改
为000，请问各位前辈，我的VBA哪边有错，执行后，只会修改到最后一个档案而已，其他
先
开起的档案都没有修改到，谢谢大家！
Dim wb as workbook
Dim ABC as range
For each wb in application.workbook
Set ABC = Activesheet.Cells.Find(What:="HHH",
LookIn:=xIFormulas2,
LookAt:=x1Part, SearchOrder: =xlByRows, SearchDirection: xINext,
MatchCase: =False, SearchFormat: =False)
ABC.Offset (, 1): Select
ActiveCell. FormulaR1C1 = "000"

你先说说遇到什么问题？执行结果不如预期？发生错误？

不好意思，已经更新问题了，谢谢

可能是因为你写了For each wb但没有叫它做Next wb？在For each下面加一行wb.Activate试试看然后在最后面加一句Next wb

谢谢大大，我后来用Do while filename 和 filename =dieFilename = Dir()