Excel2013:[26]如何将ABCD替换成数字
经常给别人做数据分析,拿到的数据都是很不规范的,比如下面这个例子,单元格中的数据是ABCD而不是数字1234,这样的剞麽苍足数据是无法放入到spss中进行处理的,所以我们需要对这个进行重新编码,在Excel中使用vba是比较快速的方法,这里我跟大家分享一下我的方法:
我们使用快捷键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
设置快捷键为Ctrl+q,然后点击确定按钮