VBA练成部分字符串搜索

Question

With Worksheets("Sheet2") 
    NewRow = .Range("C" & Rows.Count).End(xlUp).Row + 1 


.Range("A" & NewRow) = ws.Range("A91") 
.Range("B" & NewRow) = ws.Range("A92") 


If ws.Range("A93") = "LN:" & Then 
    .Range("C" & NewRow) = ws.Range("A94") 
Else 
    .Range("C" & NewRow) = ws.Range("A93") 
End If 


End With 

我怎样才能改变这一行：

If ws.Range("A93") = "LN:" & Then 

代码如果单元格A93的文本开头应该复制单元格A94：LN： 不管什么字符以下LN：

Answer 1

另一种选择是使用Like运算符使用通配符

If ws.Range("A93") Like "LN:*" & Then 

Answer 2

您可以使用VBA LEFT()字符串函数：

If Left(ws.range("A93").value, 3) = "LN:" Then 

这将需要范围的值的3级最左边的人物，并将它与字符串“LN：”