VBA解释FOR循环加SET与不加SET 结果为什么不相同

laoau138

VBA解释FOR循环加SET与不加SET  结果为什么不相同


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)  '这里加set  删除set  比较结果有何不同
Next
Range("e2") = mrg.Offset(0, 1)

End Sub

'for循环里面set
'Set mrg = Range("a:a").Find(Range("e1"), mrg)
'结果E2等于 " 15.5"


  'for循环里面删除set
'mrg = Range("a:a").Find(Range("e1"), mrg)  结果E2等于" 价格"


'解释一下加set 与删除set 有保不同

grf1973

加set，表示每次都在上次查找的基础上，往后找到名称为"A"的单元格，所以最终结果为最后一个A（[a11]）旁边的15.5
不加set，因为mrg为单元格[a1]，mrg = Range("a:a").Find(Range("e1"), mrg)等同于[a1] = Range("a:a").Find(Range("e1"), [a1])，即把[a1]改成了"A"，而mrg仍对应[a1]。最后结果[e2]=[b1]="价格"

laoau138

grf1973 发表于 2016-11-9 10:28
加set，表示每次都在上次查找的基础上，往后找到名称为"A"的单元格，所以最终结果为最后一个A（[a11]）旁边 ...

为什么加set  ,以后每次  Set mrg = Range("a:a").Find(Range("e1"), mrg)   

为什么这个mrg都会变化
这个mrg为什么不是固定的

grf1973

相当于每次给他重新赋值了。

grf1973

find的第二个参数，表示从此开始往后搜索。

laoau138

grf1973 发表于 2016-11-9 13:12
find的第二个参数，表示从此开始往后搜索。

大哥这条怎样做
http://www.excelpx.com/thread-425435-1-1.html

laoau138

谁来做一下