第1个回答 2013-07-30
Sub xx()
Dim xRng As Range, FirstF As Range
Set FirstF = Cells.Find("A")
Set xRng = Cells.Find("A", FirstF.Offset(1, 0))
MsgBox xRng.Row - FirstF.Row
End Sub
第2个回答 2013-07-30
public function AinColumnA(rng,mystr) dim rng1 as range ,n% n=0for each rng1 in rng if instr(1,rng1,mystr)>0 then n=n+1 end ifnextAinColumnA=nend function 提示窗口 调用 ? AinColumnA(range("A1:A" & usedrange.rows.count),"A")