小编Moo*_*gle的帖子

我正在尝试编写一个宏,如果有一个单词"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

帮助将不胜感激.希望我没有做一些愚蠢的事情.