自动更改单元格值

我有列A，其中包括可变数量的不同值，但也包括以下三个值; “库尔兹”，“斯坦因”，“诺伊尔”。

我想要做的是跟随; 如果单元格值是“Kurz”，那么我希望该值自动更改为“Team1”。 如果它的“斯坦因”，那么“Team2”，如果它的“诺伊尔”，那么“Team3”。 如果它的其他价值，那么我不想要发生任何事情。

也许这样的事情应该工作，但我现在不怎么编码;

If ValueA1= "Kurz" then ValueA1= "Team1" 

如何编码这个权利？

Answer 1

这里有一个简单的方法来做一些简单的VBA代码，不知道它是否是最有效的，但它应该完成工作！

 Sub replaceWords() Dim i As Long For i = 1 To Rows.Count If Cells(i, 1).Value = "Kurz" Then Cells(i, 1).Value = "Team 1" ElseIf Cells(i, 1).Value = "Stein" Then Cells(i, 1).Value = "Team 2" ElseIf Cells(i, 1).Value = "Neuer" Then Cells(i, 1).Value = "Team 3" End If Next i End Sub