当这个单元格以字母K开头时,尝试制作这个GOTO ZPLUS。我希望它以G31中的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
答案 0 :(得分:2)
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