在单元格范围内，根据前面的单元格输入单元格值

Question

我正在尝试编写Excel 2010 VBA宏。作为一名程序员，我经验丰富，但在PC上编程，或者像VBA这样的PC语言，我没有经验。

我想看一系列细胞（D4：D100）。如果每个单元格包含某个值，那么我想在下一个单元格中插入另一个值。例如，我想将ESPN的每次出现更改为773。我想将ESPN2更改为772。

如果您可以告诉我如何完成此操作，我应该能够进行更改其他值所需的任何添加。

Answer 1

好吧，我猜你可能想要使用Select块：

For j = 4 to 100
    Select Case Range("D" & j).Value
        Case "ESPN"
            Range("D" & j).Value = "773"
        Case "ESPN2"
            Range("D" & j).Value = "772"
        'etc.
    End Select
Next j

至于VBA，我会从here开始。

请注意，您的问题中的陈述不明确：

如果每个单元格包含某个值，那么我想在下一个单元格中插入另一个值。例如，我想将每次出现的ESPN更改为773。

如果您想将每次出现的ESPN更改为773，请使用上面的代码。否则，将Range("D" & j)替换为Range("D" & j+1)（如果您的意思是连续的单元格），或Range("E" & j)（如果您的意思是右侧的单元格）。