|
楼主 |
发表于 2009-8-5 11:57
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
原帖由 蓝桥玄霜 于 2009-8-5 11:08 发表
Sub ls()
Dim cc, fsad$
With Sheet1.[a:a]
Set cc = .Find("Dd")
If Not cc Is Nothing Then
fsad = cc.Address
Debug.Print cc.Address
Do
...
谢谢大侠的思路.按此思路在这点作文章.
Debug.Print cc.Address, cc.Offset(0, 1).Address, cc.Offset(0, 1)
结果为
$A$5 $B$5 1-4
$A$6 $B$6 1-5
$A$7 $B$7 1-6
$A$8 $B$8 1-7
$A$11 $B$11 1-5
$A$12 $B$12 1-6
$A$13 $B$13 1-7
Sub ls1()
Dim cc As Range, fsad$
With Sheet1.[a:a]
Set cc = .Find("Dd")
If Not cc Is Nothing Then
fsad = cc.Address
Debug.Print cc.Address
Do
Set cc = .FindNext(cc)
If cc.Address <> fsad Then
Debug.Print cc.Address, cc.Offset(0, 1).Address, cc.Offset(0, 1)
''在此采用一个判断语句,可实现目标需求.
'' 好处是先用find缩小循环次数,
''用for next要从头到尾比较.
End If
Loop While Not cc Is Nothing And cc.Address <> fsad
End If
End With
End Sub
Debug.Print cc.Address, cc.Offset(0, 1).Address, cc.Offset(0, 1) |
|