excel中使用vba给单元格内的数据添加固定内容

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，在模块中输入以下代码：Option ExplicitSub 添加固定内容()Dim i As RangeDim str As StringDim rng As RangeSet rng = ActiveSheet.Range("A1").CurrentRegionstr = "元"For Each i In rng.Cells If i.Value > 0 And VBA.IsNumeric(i) = True Then i.Value = i.Value & str End IfNext iEnd Sub

3、我们先定义三个变量，i为区域变量，str为字符串变量，rng为区域变量，并且设置rng区域变量的值为当前工作表数据区域。

4、设置字符串变量str的字符串内容为元，一定要用双引号括起来。

5、使用for each循环历遍当前所选区域的单元格，并对单元格得值进行判断其是否大于0另外必须同时满足单元格内值必须是数值的条件。

6、这里使用了vba函数IsNumeric，并对其取值必须为真。我们试着运行一下这个宏代码，得到了我们想要的结果。这个代码的着重点在于当前区域的选择和if条件判断，如果解决掉这两个难点，就很好写代码了。