excel中使用vba给单元格内的数据添加固定内容
工具/原料
excel2013
更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。好人一生平安。
先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。
方法/步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，在模块中输入以下代码：Optio艘绒庳焰nExplicitSub添瑕铆幌约加固定内容()DimiAsRangeDimstrAsStringDimrngAsRangeSetrng=ActiveSheet.Range("A1").CurrentRegionstr="元"ForEachiInrng.CellsIfi.Value>0AndVBA.IsNumeric(i)=TrueTheni.Value=i.Value&strEndIfNextiEndSub
3、我们先定义三个变量，i为区域变量，str为字符串变量，rng为区域变量，并且设置rng区域变量的值为当前工作表数据区域。
4、设置字符串变量str的字符串内容为元，一定要用双引号括起来。
5、使用foreach循环历遍当前所选区域的单元格，并对单元格得值进行判断其是否大于0另外必须同时允勃榘嘟满足单元格内值必须是数值的条件。
6、这里使用了vba函数诔罨租磊IsNumeric，并对其取值必须为真。我们试着运行一下这个宏代码，得到了我们想要的结果。这个代码的着重点在于当前区域的选择和if条件判断，如果解决掉这两个难点，就很好写代码了。
