文|薛奔

今天来分享一个常用的数据处理案例,如何用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培训资深讲师,线上线下学员过十万。