Excel 2013:如何將ABCD替換成數(shù)字
經(jīng)常給別人做數(shù)據(jù)分析,拿到的數(shù)據(jù)都是很不規(guī)范的,比如下面這個(gè)例子,單元格中的數(shù)據(jù)是ABCD而不是數(shù)字1234,這樣的數(shù)據(jù)是無(wú)法放入到SPSS中進(jìn)行處理的,所以我們需要對(duì)這個(gè)進(jìn)行重新編碼。 明確目標(biāo)
經(jīng)常給別人做數(shù)據(jù)分析,拿到的數(shù)據(jù)都是很不規(guī)范的,比如下面這個(gè)例子,單元格中的數(shù)據(jù)是ABCD而不是數(shù)字1234,這樣的數(shù)據(jù)是無(wú)法放入到SPSS中進(jìn)行處理的,所以我們需要對(duì)這個(gè)進(jìn)行重新編碼。
明確目標(biāo)
我們的目標(biāo)是將ABCD轉(zhuǎn)換成1234。題目1這一列是已經(jīng)轉(zhuǎn)換完成的,題目3這一列是還沒(méi)有進(jìn)行轉(zhuǎn)換的。
首先,我們需要使用快捷鍵Alt F11打開(kāi)VBE編輯窗口,在模塊中插入一個(gè)新的代碼段:
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
保存并關(guān)閉VBE窗口,然后按下快捷鍵Alt F8打開(kāi)宏編輯窗口。選中這個(gè)唯一的宏,然后點(diǎn)擊【選項(xiàng)】按鈕設(shè)置快捷鍵為Ctrl Q,然后點(diǎn)擊確定按鈕。
現(xiàn)在我們就可以開(kāi)始使用這個(gè)宏來(lái)轉(zhuǎn)換數(shù)據(jù)了。首先選中要轉(zhuǎn)換的這一列,然后按下快捷鍵Ctrl Q,你會(huì)看到數(shù)據(jù)快速地得到轉(zhuǎn)換,ABCD都變成了1234。