在Excel2013中怎么将ABCD替换成数字
发布时间:2016-12-01 23:06
相关话题
经常给别人做数据分析,拿到的数据都是很不规范的,比如下面这个例子,单元格中的数据是ABCD而不是数字1234,这样的数据是无法放入到spss中进行处理的,所以我们需要对这个进行重新编码,在Excel中使用vba是比较快速的方法,下面下编就教你具体步骤:
Excel2013将ABCD替换成数字的步骤:
明确目标:把ABCD转换成1234,如图所示,题目1这一列是我转换完成的,题目3这一列是还没有进行转换的。
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F928.jpg)
我们使用快捷键alt + F11,打开vbe编辑窗口
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F928-50.jpg)
掺入一个模块:菜单上执行【插入】-【模块】
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F929.jpg)
将这段代码粘贴到模块中:
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
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F929-50.jpg)
保存并关闭vbe窗口,然后按下快捷键alt+F8,打开宏编辑窗口,选中这个唯一的宏,然后点击【选项】按钮
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F929-51.jpg)
设置快捷键为Ctrl+q,然后点击确定按钮
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F929-52.jpg)
下面开始使用这个宏来转化数据,如图,先选中要转换的这一列,然后按下快捷键【Ctrl+q】,你可以看到数据快速得到转换。abcd都变成了1234
![在Excel2013中怎么将ABCD替换成数字](http://i1.sanwen.net/doc/1601/670-1601061F930.jpg)
在Excel2013中怎么将ABCD替换成数字的评论条评论