經(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。