Dim x,y,lChar,i,bb(),p,j,m
x = ActiveCellRow
y = ActiveCellColumn
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)