EXCEL：如何把26个字母替换为26个数字

发布网友 发布时间：2022-03-09 02:07

我来回答

共7个回答

热心网友 时间：2022-03-09 03:36

假设字母在A列

在B1中输入或复制粘贴下列公式

=CODE(A1)-

下拉填充

这样字母A-Z依次对应1-26数值

B1单元格写入公式

=IF(A1="","",CODE(A1)-)  如果字母是小写的则公式改成 IF(A1="","",CODE(A1)-96)

或=IF(A1="","",COLUMN(INDIRECT(A1&1)))

再或=IF(A1="","",FIND(A1,"ABCDEFGHIJKLMNOPQRSTUVWXYZ")) 

 下拉填充公式

扩展资料：

Excel公式中的相对单元格引用（例如 A1）是基于包含公式和单元格引用的单元格的相对位置。如果公式所在单元格的位置改变，引用也随之改变。如果多行或多列地复制公式，引用会自动调整。默认情况下，新公式使用相对引用。例如，如果将单元格 B2 中的相对引用复制到单元格 B3，将自动从 =A1 调整到 =A2。

单元格中的绝对单元格引用（例如 $A$1）总是在指定位置引用单元格。如果公式所在单元格的位置改变，绝对引用保持不变。如果多行或多列地复制公式，绝对引用将不作调整。默认情况下，新公式使用相对引用，需要将它们转换为绝对引用。例如，如果将单元格 B2 中的绝对引用复制到单元格 B3，则在两个单元格中一样，都是 $A$1。

参考资料来源：百度百科-单元格

热心网友 时间：2022-03-09 04:54

假设字母在A列
在B1中输入或复制粘贴下列公式
=CODE(A1)-
下拉填充
这样字母A-Z依次对应1-26数值

热心网友 时间：2022-03-09 06:29

下面的代码不会替换公式中的字母：
--------------------------------
Sub i替换()
Dim a As Integer, i
a = Asc("A") - 1
For i = 1 To 26
Cells.SpecialCells(xlCellTypeConstants, 2).Replace Chr(a + i), i, xlPart
next i
end Sub

希望能够帮到您，

热心网友 时间：2022-03-09 08:20

下面的代码不会替换公式中的字母：
--------------------------------
Sub i替换()
Dim a As Integer, i
a = Asc("A") - 1
For i = 1 To 26
Cells.SpecialCells(xlCellTypeConstants, 2).Replace Chr(a + i), i, xlPart
Next i
End Sub

热心网友 时间：2022-03-09 10:28

你想变成什么样的数，想变成你指定的数，还是变成ASCII码，我的是变成ASCII码，你可以在A1单元格里输入你想输的字母，在A2单元格里输入“=IF(LEN(M3)>0,CODE(M3),"")”即可求得ASCII码

热心网友 时间：2022-03-09 12:53

A列 B列
A
B
C

b1=code(upper(a1))-

热心网友 时间：2022-03-09 15:34

Ctrl+F 调出替换 替换内容：A 替换为：1 操作几次就可以了 不用搞什么公式 什么宏的追问谢谢，实际我后来写出来了，但是还是要感谢你!