在Excel2013中怎么將ABCD替換成數(shù)字

在Excel2013中怎么將ABCD替換成數(shù)字

　　經(jīng)常給別人做數(shù)據(jù)分析，拿到的數(shù)據(jù)都是很不規(guī)范的，比如下面這個(gè)例子，單元格中的數(shù)據(jù)是ABCD而不是數(shù)字1234，這樣的數(shù)據(jù)是無法放入到spss中進(jìn)行處理的，所以我們需要對這個(gè)進(jìn)行重新編碼，在Excel中使用vba是比較快速的方法，下面下編就教你具體步驟：

　　Excel2013將ABCD替換成數(shù)字的步驟：

　　明確目標(biāo)：把ABCD轉(zhuǎn)換成1234，如圖所示，題目1這一列是我轉(zhuǎn)換完成的，題目3這一列是還沒有進(jìn)行轉(zhuǎn)換的。

　　我們使用快捷鍵alt + F11，打開vbe編輯窗口

　　摻入一個(gè)模塊：菜單上執(zhí)行【插入】-【模塊】

　　將這段代碼粘貼到模塊中：

　　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

　　保存并關(guān)閉vbe窗口，然后按下快捷鍵alt+F8，打開宏編輯窗口，選中這個(gè)唯一的宏，然后點(diǎn)擊【選項(xiàng)】按鈕

　　設(shè)置快捷鍵為Ctrl+q，然后點(diǎn)擊確定按鈕

　　下面開始使用這個(gè)宏來轉(zhuǎn)化數(shù)據(jù)，如圖，先選中要轉(zhuǎn)換的這一列，然后按下快捷鍵【Ctrl+q】，你可以看到數(shù)據(jù)快速得到轉(zhuǎn)換。abcd都變成了1234