以下代码是啥意思？

显示全部楼层 · 2011-6-22 08:29:20

Subtest()
Application.ScreenUpdating=False
DimrngAsRange
Dimr1,iAsLong
DimfindvalueAsRange
r1=ActiveSheet.Range(\"B65536\").End(xlUp).Row
i=1
ForEachrngInActiveSheet.Range(\"B1:B\"defds123r1)
Setfindvalue=ActiveSheet.Columns(1).Find(what:=rng.Value)
IfNotfindvalueIsNothingThen
Cells(i,3).Value=rng.Value
i=i1
EndIf
Next
Application.ScreenUpdating=True
EndSub

千问 · 2011-6-22 08:29:20

次级测试()br/Application.ScreenUpdating=错误dnt作为范围的/dntDimrngbr/Dimr1，i作为长期dnt作为范围的/dntDimfindvaluebr/r1=ActiveSheet.Range(“B65536”)。末端(xlUp)。行br/i=1br/For在ActiveSheet.Range(“B1的每rng：B”

千问 · 2011-6-22 08:29:20

是的