String vba excel部分字符串搜索

如何更改该行：

  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

如果单元格A93中的文本以：LN:

---

无论下面是什么字符：

您都可以使用VBA

LEFT（）

string函数：

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

---

这将取范围值中最左边的3个字符，并将其与字符串“LN:”

进行比较。您可以使用VBA

LEFT（）

string函数：

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

---

这将取范围值中最左边的3个字符，并将其与字符串“LN:”

进行比较。另一个选项是使用带通配符的Like运算符

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

---

另一个选项是将Like运算符与通配符一起使用

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

---

您可以使用

Instr

您可以使用

Instr