学习啦 > 学习电脑 > 工具软件 > 办公软件学习 > Excel教程 > Excel2013教程 > 在Excel2013中怎么将ABCD替换成数字

在Excel2013中怎么将ABCD替换成数字

时间: 张伟670 分享

在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

400158