Excel 2013：如何将ABCD替换成数字

经常给别人做数据分析，拿到的数据都是很不规范的，比如下面这个例子，单元格中的数据是ABCD而不是数字1234，这样的数据是无法放入到SPSS中进行处理的，所以我们需要对这个进行重新编码。

明确目标

我们的目标是将ABCD转换成1234。题目1这一列是已经转换完成的，题目3这一列是还没有进行转换的。

首先，我们需要使用快捷键Alt F11打开VBE编辑窗口，在模块中插入一个新的代码段：

Sub 替换abcd()
    Dim iRng As Range
    Set iRng  Selection
    For Each icell In iRng
        txt  
        Select Case txt
            Case "A"
                  1
            Case "B"
                  2
            Case "C"
                  3
            Case "D"
                  4
            Case "E"
                  5
        End Select
    Next icell
End Sub

保存并关闭VBE窗口，然后按下快捷键Alt F8打开宏编辑窗口。选中这个唯一的宏，然后点击【选项】按钮设置快捷键为Ctrl Q，然后点击确定按钮。

现在我们就可以开始使用这个宏来转换数据了。首先选中要转换的这一列，然后按下快捷键Ctrl Q，你会看到数据快速地得到转换，ABCD都变成了1234。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。