Question

请教，使用Excel VBA 如何统计某列所有单元格中左侧两个字符相同的个数？谢谢。

Answer 1

例如统计A列前两个字符相同的单元格的代码：

dim i,n,x
n = 0
for i=1 to cells(rows.count,1).end(xlup).row
    x = cells(i,1)
    if len(x)>1 then
        if left(x,1)=mid(x,2,1) then n=n+1
    end if
next i
msgbox n

追问

您的程序没有看明白
我的意思是，第一列单元格中有01、02、03打头的，能否实现统计出所有这些打头的各有多少？
请您再指导下啊。