VBA自动添加文本，在单元格中的特定单词旁边

Question

我一直试图在理论上做一些简单的事情，但我似乎无法完成它。

我希望每当一个单元格有一个特定的单个“单词”时，在左边（前一列）自动添加一个特定的“word2”。

Answer 1

假设Word在B1中，Word2将进入A1

将其放入单元格A1（需要修改行号以应用于不同的行）：

=IF(B1="Word","Word2","")

或者在VBA中：

For each oRow in Range("B1:B200")    

    If Range("B1").value2 = "Word" then
        Range("A1").value2 = "Word2"
    end if

next oRow

只需将此代码放入（或调用）ThisWorkbook事件，即可在无需手动输入的情况下运行。