Question

EXCEL用VBA循环从A列查找

EXCEL用VBA循环从A列查找
写错了哪里如何改

http://pan.baidu.com/s/1qY7YouK

Answer 1

你的代码错误不是一点点，有的基本概念没弄清楚，比如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

追问

一定要用find怎么做

追答

如果一定要用find，代码如下，指定部分参数即可

Sub dd()
    Dim rng As Range
    Set rng = Range("A:A").Find(what:=Range("E1").Value, lookat:=xlWhole, SearchDirection:=xlPrevious)
    [E2] = rng.Offset(0, 1)
End Sub

追问

lookat:=xlWhole, SearchDirection:=xlPrevious 什么意思

追答

你查看帮助文件，里面有说明的

追问

用图片方法如何做，满足下面3个条件

1，用countif函数统计几个A重复

2，用for循环,结合find实现重复查找

3,find查找位置从单元格A2开始,找到最后一个A

追答

find没有办法实现重复查找的，如果要重复查找，只有findnext可以实现重复查找，代码如下：

Sub dd()
Dim rng As Range
x = Application.CountIf(Range("a:a"), Range("e1"))
For y = 1 To x
    If rng Is Nothing Then
        Set rng = Range("a:a").Find(Range("E1"))
    Else
        Set rng = Range("a:a").FindNext(rng)
    End If
    Set rng = Range("a:a").FindNext(rng)
Next
Range("e2") = rng.Offset(0, 1).Value
End Sub

顺便说一下，学VBA像你这样钻牛角尖有什么意义？