vba - セル値が文字で始まる場合

Question

このセルが文字 K で始まる場合、この GOTO ZPLUS を作成しようとしています。たとえば、列 A のこの値「K89188」に対して Goto ZPLUS にしたいのです。文字 K で始まるためです。実際には GOTO ZPLUS にしたいと考えています。値に文字が含まれている場合。

  If Application.Worksheets("RawData").Range("H" & Z) = 1 Or Left("A" & Z, 1) = K Then
    Y = Application.Worksheets("RawData").Range("A" & Z + 1)
    GoTo ZPLUS
  End If

Answer 1

With Application.Worksheets("RawData")
    If .Range("H" & Z).Value = 1 Or .Range("A" & Z).Value Like "[A-Z]*" Then
        Y = .Range("A" & Z + 1).Value
        GoTo ZPLUS
    End If
End With