Select 行值并将其写入其他行

Question

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

我需要比较“Team(A)”“Number(D)”（这里是1）编号为“12(E)” 在额外的一行 (F)

完成后，下一个“Team(A)”Number(D)“（这里是2）编号为“10(E)” 在另一行下的额外行 (F) 中，依此类推。

它应该是这样的：行(F)

1 - 12

2 - 10

3 - 12

4 - 16

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

的新人

非常感谢你:)

Answer 1

你可以简化它并使用“选择”。
要使用我的示例脚本，您必须用第一个值标记该列，然后启动 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

Select 行值并将其写入其他行

Select Row values and write it in other Row

excel

search

automation

calculator

filter