vba - 打开/关闭标志以更改名称

Question

我需要帮助。

我在 A3:A500 列中有单词和数字
我需要改变他们的名字。
如果单元格包含单词“previ”，则如果单元格是数字，则将字母“p”放入新列中。如果它是一个词，那么不要放“p”
...就像打开和关闭旗帜一样。

这就是我所拥有的:

Sub()
For i=3 to 500   
  x= range("a:"&i).value
  If x contains "previ" Then
    prevflag=1
  ElseIf x is not integer Then
    prevflag=0
  End If

  If prevflag=1 Then 
    range("H:"& i )= "p"
  End If
Next i
End Sub

你们能帮我完成这项工作吗？
谢谢你!!
这就是它需要的样子
https://postimg.org/image/e62z4xwlj/

Answer 1

查看您的示例，您似乎想将“p”放在标题包含“previ”的部分中的行中，但不想放在标题不包含的部分中。您似乎还希望在 A 列中有空白的行中出现“p”，而不仅仅是整数。以下内容对您有用吗？

Public Sub addPs()

    Dim previFlag As Boolean

    Dim c As Range: For Each c In Range("a1:a51")

        If InStr(c.Value, "previ") > 0 Then

            previFlag = True

        ElseIf Not IsNumeric(c.Value) Then

            previFlag = False

        End If

        If IsNumeric(c.Value) Then

            If Int(c.Value) = c.Value And previFlag Then c.Offset(0, 3) = "p"

        End If

    Next c

End Sub