<em>VBA</em> <em>Excel</em>如何在工作表区域内

A列 各单zd元格 与版B列个单元格权 比较

dim i ,j
for i=1 to range("a65536").end(3).row
for j=1 to range("b65536").end(3).row
if rang("a" & i)=rang("b" & j) then
......

end if

next

next

Sub 查找袭()
For Each rng In Range("a1:d3")
    If rng = 7 Then
        a = rng.Row
        b = rng.Column
    End If
Next
MsgBox "行号百为度" & a & "-" & "列号为" & b
End Sub

sub a()
    dim rng as range,rngSearch as range
    dim vl as string
    set rng=range("A1:B100")
    vl="AAA" 
    set rngSearch=rng.find(what:=vl)
    if not rngSearch is nothing then msgbox vl.column
end sub

你的代码错百误不是一点点，有的基本概念没弄清楚，比如find函数度，在VBA当中与在工作表当中，用法内并不一样，给你更改代码如下：容

Sub dd()
    Dim x%, y%
    x = Range("A65536").End(xlUp).Row
    For y = 2 To x
        If Range("A" & y) = Range("E1") Then
            Range("E2") = Range("B" & y)
        End If
    Next
End Sub