Question

如何用VBA代码查找特定字符

excel A列中有一串字符，如何用VBA代码查找字符"A"出现的单元格？我想知道两个"A"之间占用了多少行？？？不用公式

Answer 1

'第一个问题我就不回答了，反正方法很多，回答你的百度上面的问题'用VB6.0将excel A列中的数据赋值为数组，在这个数组基础上再以8个数据为单位赋值为数组，先形成大数组再分成小数组的VB代码怎么写，跪求！！！'后面没有看懂，自己修改一下Option Explicit
Private Sub Command1_Click()
Dim s As String, arr, i As Long
s = "c:\abc.xls" 'xls文件位置
If Dir(s) = "" Then
MsgBox "未找到：" & s
Exit Sub
End If
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(s)
Set xlSheet = xlBook.Worksheets
With xlSheet(1)
arr = .Range("a1:a" & .Range("A65536").End(-4162).Row) 'a列至少要有一个数据，数组arr读取a列
'在这里你可以用vba写代码
End With
xlApp.DisplayAlerts = False
xlBook.Close
xlApp.Quit
For i = 1 To UBound(arr)'打印a列中的数据
Debug.Print arr(i, 1),
Next
End Sub

Answer 2

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

Answer 3

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")