[已解决]EXCEL高手解释VBA查找错误A列在哪里

vbyou127

EXCEL高手解释VBA查找错误A列在哪里

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-16 15:50

1. Sub 查找最新价格()
   
2. Dim x As Integer
   
3. Dim mrg As Range
   
4. x = Application.CountIf(Range("A:A"), Range("E1"))
   
5. Set mrg = Range("A2")
   
6. For y = 1 To x
   
7. Set mrg = Range("A:A").Find(Range("E1"), mrg)
   
8. Next
   
9. Range("E2") = mrg.Offset(0, 1)
   
10. End Sub

复制代码

以上是你的代码，你的问题是为什么Set mrg = Range("A2")时会返回错误，只有当Set mrg = Range("A1")时结果才正确，这是因为每次Find都是从mrg之后的进行查找的，而不是从mrg对应的单元格进行查找，所以当你初始化mrg = Range("A2")时最后返回的是A2单元格对应的B2的值，你可以测试下用Set mrg = Range("A2")，然后For y = 1 To x改成For y = 1 To x-1，查询为A时结果是想要的，然后查询其它的时候结果就错了！

跳转到最佳答案楼层

02761752696

1. Sub 查找最新价格()
   
2. Dim i As Integer, h As Integer
   
3. h = Sheet1.Range("A65535").End(xlUp).Row
   
4. For i = h To 1 Step -1
   
5.    If Cells(1, 5) = Cells(i, 1) Then Range("E2") = Cells(i, 2): Exit Sub
   
6. Next
   
7. End Sub

复制代码

老司机带带我

1. Sub 查找最新价格()
   
2. Dim x As Integer
   
3. Dim mrg As Range
   
4. x = Application.CountIf(Range("A:A"), Range("E1"))
   
5. Set mrg = Range("A2")
   
6. For y = 1 To x
   
7. Set mrg = Range("A:A").Find(Range("E1"), mrg)
   
8. Next
   
9. Range("E2") = mrg.Offset(0, 1)
   
10. End Sub

复制代码

以上是你的代码，你的问题是为什么Set mrg = Range("A2")时会返回错误，只有当Set mrg = Range("A1")时结果才正确，这是因为每次Find都是从mrg之后的进行查找的，而不是从mrg对应的单元格进行查找，所以当你初始化mrg = Range("A2")时最后返回的是A2单元格对应的B2的值，你可以测试下用Set mrg = Range("A2")，然后For y = 1 To x改成For y = 1 To x-1，查询为A时结果是想要的，然后查询其它的时候结果就错了！

vbyou127

老司机带带我 发表于 2016-6-16 15:50
以上是你的代码，你的问题是为什么Set mrg = Range("A2")时会返回错误，只有当Set mrg = Range("A1")时结果 ...

为什么改成For y = 2 To x   也可以

老司机带带我

vbyou127 发表于 2016-6-16 16:59
为什么改成For y = 2 To x   也可以

你的这个for控制的是次数，没有控制具体次数，2 to x也是执行了x-1次！