在Excel2013中怎么将ABCD替换成数字
经常给别人做数据分析,拿到的数据都是很不规范的,比如下面这个例子,单元格中的数据是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