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，然后点击确定按钮