excel - 如何在for语句中为行选择列值？

Question

感谢您过去提出我的 n00bish 问题，我还有另一个问题，我对此进行了广泛的研究，但没有找到答案。

我正在尝试遍历表中的行并选择某一列的值，此时我想要对该值做的就是将它放在 MsgBox 中，但我的尝试一再失败。

Dim id As Range
Dim trtype As Range

set id = Activesheet.Range("Table1[Column1]")

For Each r In id
    r.Select
    Set trtype = .Range(Cells(.ActiveRow, "Column5"))
    MsgBox trtype.Value
Next r

这将返回与该行的“类型不匹配” trtype = .Range(Cells(.ActiveRow, "Column5")突出显示。

关于如何使这项工作的任何想法？

Answer 1

您错过了该行中的 SET 一词:

trtype = .Range(Cells(.ActiveRow, "Column5")) 

trtype 是一个对象变量(即指向内置 Excel 对象的变量)。 VBA 规则是您必须使用 SET 来分配它。

多年来，这是我最常见的 VBA 错误!