VBA:对于 wRange 中的每个 wCell

Question

我遇到了 For Each 循环的问题。

我正在尝试使用循环:

wRange = Range(Cells(5, countryCol), Cells(lastrow, countryCol))
For Each wCell In wRange
    If wCell = "Unknown" Then
        wCell.Offset(0, 3).Value = "Follow up with receiving"
        wCell.Offset(0, followUp - countryCol) = "Send to receiving"
    End If
Next

当我将变量定义为:

Dim wRange As Range
Dim wCell As Range

我收到运行时错误 Object variable or With block variable not set在线上
wRange = Range(Cells(5, countryCol), Cells(lastrow, countryCol))
当我将变量定义为:
Dim wRange, wCell As Range
我收到一个运行时错误: Object required在线上
For Each wCell In wRange
如果我像这样使用循环

For Each cell In wRange
    If cell = "Unknown" Then
        cell.Offset(0, 3).Value = "Follow up with receiving"
        cell.Offset(0, followUp - countryCol) = "Send to receiving"
    End If
Next

我收到运行时错误 Object required在线上
cell.Offset(0, 3).Value = "Follow up with receiving"

Answer 1

如对原始问题的评论所述，我需要使用 Set

Set wRange = Range(Cells(5, countryCol), Cells(lastrow, countryCol))
For Each wCell In wRange
    If wCell = "Unknown" Or wCell = "" Then
        wCell.Offset(0, reviewStatus - countryCol).Value = "Follow up with receiving"
        wCell.Offset(0, followUp - countryCol) = "Send to receiving"
    End If
Next