首页 > 解决方案 > 在Excel中将字符串编码为数字

问题描述

我想将字符串代码转换为整数代码

这是我的 Excel 文件

Level1	Level2	Level3	Level4	Time1	Time2	Time3	Time4
A	B	E	C	12	14	12	13
D	D	E	C	11	17	16	9
E	C	C	B	14	13	19	8
C	E	B	D	11	12	10	7
B	A	A	D	10	11	7	6

A= 4, B=3, C=2, D=1, E= 0

在sheet2中得到这个

Level1	Level2	Level3	Level4	Time1	Time2	Time3	Time4
4	3	0	2	12	14	12	13
1	1	0	2	11	17	16	9
0	2	2	3	14	13	19	8
2	0	3	1	11	12	10	7
3	4	4	1	10	11	7	6
可能吗?

标签: excel

解决方案


使用 ASCII 表和一些基本的数学。

dim i as long

for i=65 to 69
    worksheets("sheet1").cells.replace what:=chr(i), replacement:=(69-i)
next i

推荐阅读