将文本附加到具有特定值的另一个单元格上方的单元格

Question

我正在尝试查看如何在excel vba中执行此操作。 基本上我的数据集是这样的。

Dan (Cell A1)
Red (Cell A2)
Jim (Cell A3)
Red (Cell A4)
Tim (Cell A5)
Red (Cell A6)

我想编写一个vba代码，该代码基本上可以识别包含值“ red”（如果值像“ Grade ”然后）的单元格，在这种情况下，应使用Dan和Jim之类的名称，在这些单元格的末尾添加：。 结束状态应为

Dan: (Cell A1)
Red (Cell A2)
Jim: (Cell A3)
Red (Cell A4)
Tim: (Cell A5)
Red (Cell A6)

非常感谢任何指导。

Answer 1

您可以使用公式。在新列中，说B，将其放在B1中并向下拖动：

=IF(A2="Red",A1&":",A1)

如果需要VBA，只需遍历每个cel并检查以下值：

Sub replace()
Dim rng As Range, cel As Range
Set rng = Range("A1:A6")
For Each cel In rng
    If cel.Offset(1, 0) = "Red" Then cel.Value = cel.Value & ":"
Next cel
End Sub