Question

请高手指教vba

我写的一段程序，但执行与我想的不一致，请教：
我就是想把sheet里b列中有3的那个单元格，同行的前面一列a单元格中赋值10，（比如发现b4=3,那么a4就赋值10）结果现在是a2到a6都是10， 我刚学习，请指教。
Private Sub CommandButton1_Click()
Dim a As Integer
Dim i As Integer '行数
For i = 2 To 6
a = Range("b" & i).Value
If a Eqv 3 Then
Range("a" & i).Value = 10
End If
Next
End Sub
不能用eqv?，这个是在什么情况下使用呢，谢谢高手

Answer 1

Private Sub CommandButton1_Click()
Dim a As Integer
Dim i As Integer '行数
For i = 2 To 6
a = Range("b" & i).Value
If a = 3 Then
Range("a" & i).Value = 10
End If
Next
End Sub

补充回答：
Eqv 运算符对两个数值表达式中位置相同的位进行逐位比较

Answer 2

Private Sub CommandButton1_Click()
For t = 1 To ActiveSheet.[b65536].End(xlUp).Row

If Cells(t, 2) = 3 Then
Cells(t, 1) = 10
Else
Cells(t, 1) = ""
End If
Next
End Sub

Answer 3

Private Sub CommandButton1_Click()
Dim a As Integer
Dim i As Integer '行数
For i = 2 To 6
a = activesheet.cells(i,2)
If a =3 Then
activesheet.cells(i,2)=10
End If
Next
End Sub

Answer 4

将第6行的Eqv换成等号即可