搜索缺少指定文本的单元格，然后添加它

Question

我在Excel A中有一个包含字母数字条目的Excel电子表格。所有条目应该有相同的六位数结尾，但有些则没有。我找到了一个宏，它将特定文本添加到列中每个单元格的末尾，但它将它添加到所有单元格。我想要调整的宏是：

Sub AppendToExistingOnRight()
 Dim c As Range
 For Each c In Selection
 If c.Value <> "" Then c.Value = c.Value & "-368341"
 Next
 End Sub

我需要一份IF声明来说，

if c.Value **does not contain** "-368341" Then c.Value = c.Value & "-368341"    

我只是不知道要使用什么术语。我知道这可能很简单，但我已经搜索了一段时间，找不到简单的解决方案。请帮忙！

Answer 1

请尝试：

If c.Value <> "" And InStr(c, "-368341") = 0 Then c.Value = c.Value & "-368341"  

而不是你的If语句。