vba实现字符串的间隔加密
分类:Excel
代码:
Sub 隔一加密()
x = Range("a1").Value
result = ""
flag = 0
For i = 1 To Len(x)
If i = 1 Then
If flag = 0 Then
result = result & Mid(x, i, 1)
Else
result = result & "*"
End If
Else
If IsNumeric(Mid(x, i, 1)) And IsNumeric(Mid(x, i - 1, 1)) Then flag = 1 - flag
If flag = 0 Then
result = result & Mid(x, i, 1)
Else
result = result & "*"
End If
End If
flag = 1 - flag
Next
MsgBox result
End Sub
效果:
有任何问题请直接联系小编