Question

我有A列，其中包含可变数量的不同值，但也包括以下三个值; ＆＃34; Kurz＆＃34;，＆＃34; Stein＆＃34;，＆＃34; Neuer＆＃34;。

我想做的是跟随;如果单元格值是＆＃34; Kurz＆＃34;然后我希望该值自动更改为＆＃34; Team1＆＃34;。如果它＆＃34;斯坦＆＃34;然后＆＃34; Team2＆＃34;如果它是＆＃34; Neuer＆＃34;然后＆＃34; Team3＆＃34;。如果它具有其他价值，那么我就不希望发生任何事情。

也许这样的事情应该有效，但我现在不知道如何对此进行编码;

  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

自动更改单元格值

1 个答案: