在Excel2013中怎么将ABCD替换成数字

2016-12-01

经常给别人做数据分析,拿到的数据都是很不规范的,比如下面这个例子,单元格中的数据是ABCD而不是数字1234,这样的数据是无法放入到spss中进行处理的,所以我们需要对这个进行重新编码,在Excel中使用vba是比较快速的方法,下面下编就教你具体步骤:

Excel2013将ABCD替换成数字的步骤:

明确目标:把ABCD转换成1234,如图所示,题目1这一列是我转换完成的,题目3这一列是还没有进行转换的。

我们使用快捷键alt + F11,打开vbe编辑窗口

掺入一个模块:菜单上执行【插入】-【模块】

将这段代码粘贴到模块中:

Sub 替换abcd()

Dim iRng As Range

Set iRng = Selection

For Each icell In iRng

txt = icell.Value

Select Case txt

Case "A"

icell.Value = 1

Case "B"

icell.Value = 2

Case "C"

icell.Value = 3

Case "D"

icell.Value = 4

Case "E"

icell.Value = 5

End Select

Next icell

End Sub

保存并关闭vbe窗口,然后按下快捷键alt+F8,打开宏编辑窗口,选中这个唯一的宏,然后点击【选项】按钮

设置快捷键为Ctrl+q,然后点击确定按钮

下面开始使用这个宏来转化数据,如图,先选中要转换的这一列,然后按下快捷键【Ctrl+q】,你可以看到数据快速得到转换。abcd都变成了1234

更多相关阅读

最新发布的文章