Question

我希望检查整个列的特定值（第一个是Murphy，Yvonne），如果找到该值，则将某个（团队名称）放在该值所在的单元格旁边，继续执行整个清单。留下没有找到搜索值的空格。

最后，我想做一些这样的陈述，用团队名称（团队1,2,3等）填充整个专栏。

我一直在搜索并玩代码（请注意，我不时只涉及VBA）我能够到达下面。哪个搜索并在单元格中输入团队名称，但它不会在找到匹配的单元格中输入它。它只是为搜索到的术语的每个匹配一个接一个地添加团队名称。

我是否需要在某处存储范围值，然后告诉它在该位置插入团队名称？

感谢您的帮助

Sub Macro1()
Dim irow As Integer

irow = 2
For Each i In Range("i2:i500")  
    If i.value = "Murphy, Yvonne" Then  
        Cells(irow, 11) = "Team Name"  
        irow = irow + 1  
    End If  
Next i  

End Sub

Answer 1

我们需要更改 irow 以匹配所需的行：

Sub Macro1()
    Dim irow As Integer
    For Each i In Range("i2:i500")
        If i.Value = "Murphy, Yvonne" Then
            irow = i.Row
            Cells(irow, 11) = "Team Name"
        End If
    Next i
End Sub

修改＃1

2 条件**

Sub Macro1() Dim irow As Integer irow = 2 For Each I In Range("i2:i500") If I.Value = "Murphy, Yvonne" And _ I.Offset(0, -1).Value = "Good, Thomas" Then irow = I.Row Cells(irow, 10).Value = "Team Name" End If Next I End Sub

如何找到一个值，如果找到，则在右侧单元格中输入特定文本并循环到结尾

1 个答案: