excel - Excel/VBA "CELL" - 变量未定义？

Question

“对于 rng 中的每个单元格”抛出了一个调试错误，令我大吃一惊。它说Cell这个词是“变量未定义”，它是一个继承变量，为什么我必须定义它？好纠结，谢谢！

lr = GetLastRow(ActiveSheet.Name, 1)
Set rng = Range(Cells(1, ActiveCell.column), Cells(lr, ActiveCell.column))
For Each Cell In rng
    If Cell.Value <> "" And InStr(Cell.Value, "*") > 0 Then
        Cell.Value = Left(Cell.Value, InStr(Cell.Value, "*") - 1)
    End If
Next Cell

标签： excelvba