Excel 选择行值并将其写入其他行

亲爱的社区，我需要你的帮助，我不知道如何解决这个问题

我需要比较“团队（A）”、“数字（D）”（这里是1） 数字为“12（E）” 在额外的一行（F）

完成此操作后，下一个“团队（A）”编号（D）”（这里是2） 数字为“10（E）” 在另一行下面的额外一行（F）中，依此类推

应该是这样的： 第（F）行

1-12

2-10

3-12

4-16

有什么解决办法吗？我无法寻址该列，因为它可能是可变的。 你能帮帮我吗？顺便说一下，我是VBA的新手

非常感谢：）

---

您可以简化操作并使用“选择”。
要使用我的示例脚本，您必须用第一个值标记列，然后启动makro。
（第二个值必须始终是它右边的一列和下面的两行。）

---

谢谢你，先生！：）

Sub TeamCompare()
    Dim c As Range
    Dim a As String
    Dim b As String
    For Each c In Selection
        If Not c.Value = "" Then
            a = c.Value
            b = ActiveSheet.Cells(c.Row + 2, c.Column + 1).Value
            ActiveSheet.Cells(c.Row, c.Column + 2).Value = a & " - " & b
        End If
    Next c
End Sub