如何使用VB查看一列里面有多少A，占百分比多少

[attach]71600[/attach]
如何使用VB查看一列里面有多少A，占百分比多少(百分比显示不是小数) 请在下面改，，上面这段好像是查看并改变颜色，，怎么变成有多少A 或者其它字母啊，，在全部字母多少百分比，，在显示到单元格(1,1)里面

For i = firstline To lastline
   
   If UCase(Trim(Worksheets("数据源").Cells(i, tempatt))) >= "A" And UCase(Trim(Worksheets("数据源").Cells(i, tempatt))) <= "F" Then
   
      Worksheets("数据源").Cells(i, tempatt).Select
       With Selection.Interior
        .ColorIndex = xlNone
 
       End With
   Else
      Worksheets("数据源").Cells(i, tempatt).Select
       With Selection.Interior
        .ColorIndex = 6
     
       End With
   
    End If
Next i


[ 本帖最后由 形而上学 于 2013-6-18 19:35 编辑 ]