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

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

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

这将取范围值的最左边3个字符并将其与字符串＆＃34; LN进行比较：＆＃34;

Answer 2

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

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

vba excel部分字符串搜索

2 个答案: