excel vba 字符相似度问题答:Sub similar()Dim s,mFor i=2 to Columns(3).Find("*", , , , 1, 2).row For j=2 to Columns(1).Find("*", , , , 1, 2).row s=sim(Range("B" & i),Range("A" & j)) If j=2 Then m=s Else If s>m Then m=s Else If m=1 The...
VBA程序编写:输入一串字符,统计字符串中英文字母,数字,空格和其他字 ...答:Sub mm()Dim strn$, i&, n&, chrs(1 To 4) As Integer, strr strr = Array("空格数量", "数字数量", "英文字母数量", "其他字符数量")strn$ = InputBox("输入字符串:", "输入", "1")n = Len(strn)For i = 1 To n Select Case Mid(strn, i, 1)Case " "chrs(1) ...