UC知道VBA问题，VBA高手请进！
来源：百度知道 编辑：UC知道 时间：2024/05/10 07:49:40
A列 B列 D列 E列
a c 5
b m 10
c f 1
d x 3
e
f
g
h
i
是这样的，从D列中找到与A列相同的字母，然后在B列中写出跟D列相对的数字，例如A3中的c与D1中的c，那么B3就是E1=5
想问一下代码应该怎样写！
a c 5
b m 10
c f 1
d x 3
e
f
g
h
i
是这样的，从D列中找到与A列相同的字母，然后在B列中写出跟D列相对的数字，例如A3中的c与D1中的c，那么B3就是E1=5
想问一下代码应该怎样写！
Sub test()
Dim Rng As Range
Dim Cel As Range
For Each Rng In Range("A1:A9")
Set Cel = Range("C1:C4").Find(Rng.Text)
If Not Cel Is Nothing Then
Rng.Offset(0, 1) = Cel.Offset(0, 1)
End If
Set Cel = Nothing
Next
End Sub
其实这个用函数做就行了,用VBA就太浪费了。
B1输入公式:
=IF(COUNTIF($C$1:$C$4,A1),VLOOKUP(A1,$C$1:$D$4,2,),"")
填充B1:B9即可