Excel-VBA進行文字替換數值

今天來分享一個常用的數據處理案例，如何用VBA進行文字替換數值。應用場景是這樣的:

比如我有一張資產的盤點表，資產有幾種狀態，1，2，3.1代表完好，2 代表損壞，3 代表報廢。我們要把數值轉化成文字，方法有好幾種，我們本節來介紹下如何用VBA來做。

函數方法主要是多IF判斷，或者Vlookup+輔助列等。

數據如下：

C列目前是我們手動來寫的。

我們希望用VBA運行下就能得到要的結果。

步驟1：

右擊查看代碼，可以進入VBE編輯器，也可以快捷鍵Alt+F11

步驟2：

插入模塊，輸入代碼：

Sub 判斷()

For i = 4 To 10"從第4行開始，所以i=4 開始

If Range("B" & i) = 1 Then

Range("D" & i) = "完好"

ElseIf Range("B" & i) = 2 Then

Range("D" & i) = "損壞"

ElseIf Range("B" & i) = 3 Then

Range("D" & i) = " 報廢"

End If

Next

End Sub

上面的代碼不是最簡潔最好的，但是非常容易看懂。

就是IF Elseif的多重判斷，多個替換多判斷幾次即可

步驟3：

運行結果

按F5或綠色三角形進行判斷

本篇結束，大家來自己練習下，VBA並沒有你想像得那麼難得.

作者：

薛奔(Sharpen)，前1號店數據分析，前大眾點評網站運營高級主管

微軟MOS大師級認證，擅長Excel數據處理和報表設計。

Excel培訓資深講師，線上線下學員過十萬。

長期運營公眾號：Excel成長課堂

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！