卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

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。

標(biāo)簽: