可以借助vba。
下面的代码将所选单元格中的数据按照你描述的规律全部替换。
Sub 字母替换()
On Error Resume Next
For Each c In Selection.Cells
x = c.Value
For i = 1 To Len(x)
y = Mid(x, i, 1)
y = Chr(y + 65)
t = t & y
Next i
c.Value = t
t = ""
Next c
End Sub
先给复制下来,然后在别处“编辑”-“选择性粘贴”,勾选“转置”。然后确定就好。复制这一排据===>单击目标位置==>“编辑”==>“选择性粘贴”==>转置==>确定
最直接的方法是删除了,重装。