第1个回答 2010-11-26
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next
For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 55289 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m
选择此单元格,按alt+f8创建一个宏,把里面的东西全删了,复制代码进去,关闭后,回到excel再按alt+f8 点aa执行,试试吧本回答被提问者采纳
第3个回答 2010-11-26
日前看来没有特别的办法,如果格式固定,可以尝试用这个公式=if(len(a1)=12,MID(A1,8,2),mid(a1,8,3))
此处以A1单元格为例.