如何在VBA中指定列？

Question

For Each c In Range("A2:A157")
    If (Left(c, 1) = "P" Or Left(c, 1) = "T") And IsNumeric(Right(c, 6)) And Len(c) >= 5 Then
        c = "Found It" 'i know this overwrites the value
    End If
Next c

我想写＆＃34;发现它＆＃34;在同一行但列E

我无法解决这个问题。

Answer 1

使用.Offset

For Each c In Activesheet.Range("A2:A157")
    If (Left(c, 1) = "P" Or Left(c, 1) = "T") And IsNumeric(Right(c, 6)) And Len(c) >= 5 Then
        c.Offset(,4) = "Found It" ' i know this overwrites the value
    End If
Next c

Answer 2

使用：

Range("E" & c.Row).Value = "Found It"