VBA,如果字符串包含某个字母

Question

我通常不会合作,VBA我无法弄清楚这一点.我正在尝试确定某个字母是否包含在我的spreadhseet中的字符串中.

Private Sub CommandButton1_Click()
Dim myString As String
RowCount = WorksheetFunction.CountA(Range("A:A"))
MsgBox RowCount
For i = 2 To RowCount
    myString = Trim(Cells(i, 1).Value)
    If myString.Contains("A") Then
        oldStr = Cells(i, 15).Value
        newStr = Left(oldStr, oldStr.IndexOf("A"))
    End If
Next          
End Sub

此代码应该通过一个值列表,如果它遇到字母A以删除它以及它之后的所有内容.我的IF声明,无效的资格赛我遇到了问题.IF无论单元格中的字符串是否包含字母A,我如何才能输出语句？

非常感谢你

Answer 1

尝试使用InStr函数,该函数返回找到字符的字符串中的索引.如果InStr返回0,则找不到该字符串.

If InStr(myString, "A") > 0 Then

InStr MSDN网站

对于分配给newStr的行上的错误,还将oldStr.IndexOf转换为该InStr函数.

Left(oldStr, InStr(oldStr, "A"))