excel - 在 VBA excel 中使用 "If cell contains"

Question

我正在尝试编写一个宏，如果有一个单元格带有“TOTAL”一词，那么它将在其下面的单元格中输入一个破折号。例如:

在上述情况下，我希望在单元格 F7 中添加一个破折号(注意:可以有任意数量的列，因此它始终是第 7 行，但不总是 F 列)。

我目前正在使用此代码，但它不起作用，我不知道为什么。

Dim celltxt As String
Range("C6").Select
Selection.End(xlToRight).Select
celltxt = Selection.Text
If InStr(1, celltext, "TOTAL") > 0 Then
Range("C7").Select
Selection.End(xlToRight).Select
Selection.Value = "-"
End If

如果有帮助，我们将不胜感激。希望我没有做傻事。

Answer 1

这将循环遍历您定义的给定范围内的所有单元格 ("RANGE TO SEARCH")并使用 Offset() 在下面的单元格中添加破折号方法。作为 VBA 的最佳实践，您永远不应该使用 Select方法。

Sub AddDashes()

Dim SrchRng As Range, cel As Range

Set SrchRng = Range("RANGE TO SEARCH")

For Each cel In SrchRng
    If InStr(1, cel.Value, "TOTAL") > 0 Then
        cel.Offset(1, 0).Value = "-"
    End If
Next cel

End Sub