VBA查找值并将其放入特定列

Sub FindAndMoveValue()
    Dim searchValue As String
    Dim searchRange As Range
    Dim resultColumn As Range
    Dim cell As Range
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 设置要查找的范围
    Set searchRange = Range("A1:A10")
    
    ' 设置要放置结果的列
    Set resultColumn = Range("B1")
    
    ' 遍历查找范围中的每个单元格
    For Each cell In searchRange
        ' 如果找到匹配的值
        If cell.Value = searchValue Then
            ' 将值放入结果列中的下一个空单元格
            resultColumn.End(xlDown).Offset(1).Value = cell.Value
        End If
    Next cell
End Sub