对于范围内的每个单元格不能带到另一个子？

当使用范围中的每个单元格时 ，我想使用cell.row属性来引用当前单元格的行。 但是，如果我在另一个Sub中使用它，我得到错误运行时错误：'424'所需的对象 。

下面是一个简单的代码来说明我的意思。 我做错了什么或有没有办法引用另一个子目前的单元格的行？ 谢谢！

Sub CommandButton2_Click() Dim rng As Range Set rng = Range("P290:P293") For Each cell In rng Third Next cell End Sub Sub Third() MsgBox cell.row End Sub 

Answer 1

 Sub CommandButton2_Click() Dim rng As Range, cell As Range Set rng = Range("P290:P293") For Each cell In rng Third cell Next cell End Sub Sub Third(cell As Range) MsgBox cell.row End Sub 

你需要把它作为一个参数。