我的思路是 定义A=1 B=2 C=3.....Z=26
如果 a=ABCZ 那么怎么才能够让 a=12326 //这里用错了
这里错了 应该改成一个非字母的 正=ABCZ 怎么才能够让 正=12326
正=ABCZ 这个是随机出现的 是不可以手动更改的 而且在这个字符串里面还有可能参杂着 0-9的数字 比如说 正= 00AAB46ZZ 这个时候 需要的就是让 正=00112462626
kenren48 这位朋友 可以提供一下代码吗
Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
Dim shuzhi
shuzhi = inputbox("输入要转变的数据"," 输入框")
shuzhi = Replace(shuzhi, "a", "1")
shuzhi = Replace(shuzhi, "b", "2")
shuzhi = Replace(shuzhi, "c", "3")
shuzhi = Replace(shuzhi, "d", "4")
shuzhi = Replace(shuzhi, "e", "5")
shuzhi = Replace(shuzhi, "f", "6")
shuzhi = Replace(shuzhi, "g", "7"族谨首)
shuzhi = Replace(shuzhi, "h", "8")
shuzhi = Replace(shuzhi, "i", "9")
shuzhi = Replace(shuzhi, "j", "10")
shuzhi = Replace(shuzhi, "k", "11")
shuzhi = Replace(shuzhi, "l", "12")
shuzhi = Replace(shuzhi, "m", "13")
shuzhi = Replace(shuzhi, "n", "14")
shuzhi = Replace(shuzhi, "o", "15")
shuzhi = Replace(shuzhi, "p", "兆数16")
shuzhi = Replace(shuzhi, "q", "17")
shuzhi = Replace(shuzhi, "r", "18")
shuzhi = Replace(shuzhi, "s", "19")
shuzhi = Replace(shuzhi, "晌吵t", "20")
shuzhi = Replace(shuzhi, "u", "21")
shuzhi = Replace(shuzhi, "v", "22")
shuzhi = Replace(shuzhi, "w", "23")
shuzhi = Replace(shuzhi, "x", "24")
shuzhi = Replace(shuzhi, "y", "25")
shuzhi = Replace(shuzhi, "z", "26")
MessageBox shuzhi
在a、b、c、z之谈历间添加连接符号配纳“&”
如培侍没：
a = 1
b = 2
c = 3
z = 26
a = a & b & c & z
MessageBox a
望采纳