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 操作几次就可以了 不用搞什么公式 什么宏的追问谢谢,实际我后来写出来了,但是还是要感谢你!

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com