[已解决]VBA解释FOR循环这个find

laoau138

VBA解释FOR循环这个find

Sub d1()
Dim mrg As Range
x = Application.CountIf(Range("a:a"), Range("e1"))
Set mrg = Range("a1")
For y = 1 To x
Set mrg = Range("a:a").Find(Range("e1"), mrg)  '解释这里，为什么保留mrg  结果结果E2=15.5
' Set mrg = Range("a:a").Find(Range("e1"))   '解释这里，为什么删除mrg  结果E2=10
Next
Range("e2") = mrg.Offset(0, 1)

End Sub


'解释这里，为什么删除mrg，保留mrg  结果会不相同

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-5 16:59

Find使用方法：对象. Find（查询信息，当前单元格以后再查询的区域，查询的信息形式，查询的信息是否是整体，行列，查询的方向，是否区分大小写）。
举个例子，在A1单元格有字母“A”，在A10单元格也有字母“A”，如果用Columns(1).Find("A")是不会找第一行的字母“A”的，只会找到A10的字母“A”，但是如果加个限制Columns(1).Find("A", [A20])，那么会从A21开始找，找不到再从头开始找，这时会找到第1行的字母“A”。

跳转到最佳答案楼层

大灰狼1976

Find使用方法：对象. Find（查询信息，当前单元格以后再查询的区域，查询的信息形式，查询的信息是否是整体，行列，查询的方向，是否区分大小写）。
举个例子，在A1单元格有字母“A”，在A10单元格也有字母“A”，如果用Columns(1).Find("A")是不会找第一行的字母“A”的，只会找到A10的字母“A”，但是如果加个限制Columns(1).Find("A", [A20])，那么会从A21开始找，找不到再从头开始找，这时会找到第1行的字母“A”。