Excel VBA - 如果另一列包含另一个值（文本），则在一列中插入值（文本）

Question

我已经环顾了论坛，并且无法成功地适应任何事情，所以我在这里。这是我目前的任务：

如果Column A中的单元格的值为＆＃34; Info ＆＃34;，则插入值＆＃34;标题＆＃34;进入第I列的相应行（覆盖其中的任何内容）

最后注意事项：这应该适用于我正在运行宏的任何ActiveSheet。

Answer 1

试试这段代码，

Sub info()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    If ActiveSheet.Cells(i, 1) = "Info" Then
        ActiveSheet.Range("I" & i) = "Header"
    End If
Next i
End Sub

注意： - 单词Info区分大小写