Question

请教Excel vba 如何将A列中等于指定数值的单元格更改为对应B列单元格的数

请教Excel vba 如何将A列中等于指定数值的单元格更改为对应B列单元格的数值，谢谢！

Answer 1

Sub 对应数值()
    Dim r&
    r = [a1048576].End(xlUp).Row
    Set Arr = Range("a:a")
    For i = 1 To r
    If Arr(i, 1) = "指定数值" Then
        Arr(i, 1) = Range(Cells(i, 2))
    End If
    Next i
    Set Arr = Nothing
End Sub

追问

非常感谢！但运行时显示run-time error'1004'；method 'Range' of object'_global failed,debug 显示arr(i,1） = Range(Cells(i, 2））高亮。

追答

Arr(i, 1) = Range(Cells(i, 2))
换成这句试试
Arr(i, 1) = Cells(i, 2).value