上面思路是正确的， 用ascw 函数也可以
在兴山等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站建设、网站制作 网站设计制作按需定制设计,公司网站建设,企业网站建设,成都品牌网站建设,全网整合营销推广,成都外贸网站制作,兴山网站建设费用合理。
private function LenC( ps as string ) as Integer
Dim n As Integer
Dim StrLen As Integer
For n = 1 To Len(Text1.Text)
If Ascw(Mid(Text1.Text, n, 1)) 256 Then
StrLen = StrLen + 2
Else
StrLen = StrLen + 1
Next n
return strLen
end function
使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串：")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
用字符串保存两个数据，当然只有你这种办法，另外提供你其它思路：
1. flexcell增加两列，这两列隐藏不显示，额外数据可以从这两列读取
2. 用自定义类型数组，保存这两列数据，数组顺序和表格一样，或者数组中增加一个ID元素，与表格对应
