excel中使用vba给单元格内的数据添加固定内容工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

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

2/6

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，在模块中输入以下代码：

Option Explicit

Sub 添加固定内容()

Dim i As Range

Dim str As String

Dim rng As Range

Set rng = ActiveSheet.Range(A1).CurrentRegion

str = 元

For Each i In rng.Cells

If i.Value 0 And VBA.IsNumeric(i) = True Then

i.Value = i.Value str

End If

Next i

End Sub

3/6

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

4/6

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

5/6

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

6/6

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

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCEL单元格表格文档