VBA循环通过单元格范围失败
|
出于某种原因，下面的代码在第二行失败，并显示运行时错误\'1004 \'，表明对象对象“ __Application \'的方法\'Intersect \'失败\”，并且在某些情况下，我尝试修改代码，它会产生\'_ Global \'失败。奇怪的是，我使用过各种版本的代码，有时在调试模式下进行了许多更改后，我重试了此表单，然后运行。如果然后尝试重新运行代码，它将再次失败。
rng1是同一列中的一组单元格，rng2是多个列中具有与rng1相同行的单元格
例如rng1 = {A2：A10}，
rng2 = {D2：H10}
相对于rng1中的单个条目，指令从rng2的单个行中保存单元格的值。我检查了范围是否在同一张纸上，有效且（在命名时）引用了正确的单元格。
For Each c In Range(\"rng1\").Cells
For Each d In Application.Intersect(Rows(c.Row), Range(\"rng2\")).Cells
*some instructions here*
Next d
Next c
没有找到相关结果
已邀请:
1 个回复
眠皇
Dim c As Range, d As Range Dim rng As Range For Each c In Range(\"test1\") Set rng = Application.Intersect(Rows(c.Row), Range(\"test2\")) If rng Is Nothing Then \'\' Empty intersection \'\' Debug.Print \"Empty\" Else For Each d In rng \'\' some instructions here \'\' Debug.Print d.Address Next d End If Next c和，例如：和等等...