Question

EXCEL VBA 字母转换

比如单元格A列是DGU
YZKC
OIQ
转换成B列 EHV
ZALD
PJR
即新的字母是原来字母向后移动一个，按26个字母的顺序，如果到Z，就从头取A
不知哪位有方法

Answer 1

Function ttt(s$)
Dim a() As Byte, ns$
    a = s
    For i = 0 To UBound(a) Step 2
        a(i) = IIf(a(i) = 90, 65, IIf(a(i) = 122, 97, a(i) + 1))
        ns = ns + Chr(a(i))
    Next
    ttt = ns
End Function

例：ttt("DGU")="EHV"

把以上函数写在模块里，可以在excel中档函数使用，比如B1写：=ttt(A1)，下拉复制公式即可

或者自己再写vba循环调用上面的方法填写B列

Answer 2

遍历每个单元格中所有字符，用Asc函数取得数值，加1，再用Chr函数转为字符。

追问

我是低手，需要语句，还有Z怎么办

追答

Z当然用If判断一下了，等一下，有时间，我写给你。