（已解决）VBA像操作员不拾起某些string

我正在写一些代码，search每个单元格的某些string。 我所使用的代码对于每一个我尝试过的string都是完美的，但是由于某种原因我不会select一个我正在寻找的url。 代码如下：

If Cells(datanum, myDescCol).Value Like "*Design Review*" Or Cells(datanum, myDescCol).Value Like "*Design Review Protocol*" Or Cells(datanum, myDescCol).Value Like "*Review Protocol*" Then If Worksheets("CS-CRM Raw Data").Cells(datanum, myDescCol).Value Like "*https://extern.website.com/xyz/og/inu/dis/*" Then Worksheets("Request Results").Cells(reportnum, 7).Value = "Yes" ElseIf Cells(datanum, myDescCol).Value Like "*Not Required*" Then Worksheets("Request Results").Cells(reportnum, 7).Value = "No" Worksheets("Request Results").Cells(reportnum, 7).Interior.Color = 65535 Else Worksheets("Request Results").Cells(reportnum, 7).Value = "No" End If Else Worksheets("Request Results").Cells(reportnum, 7).Value = "No" End If 

我有这样的各种陈述，他们都工作正常，但网站的If语句通常会跳过Else或ElseIf，即使单元格有string。 通常在单元格的网站看起来像https://extern.website.com/xyz/og/inu/dis/5586574657465836574385 ，但由于数量不同，我切断search后dis /。 任何想法，为什么它没有得到拾起？

编辑：我也应该添加当我编辑url，以便数字被删除，离开https://extern.website.com/xyz/og/inu/dis/在单元格中，它仍然没有拿起由代码。

Answer 1

将使用InStr函数工作？

片段：

 If InStr(1, Worksheets("CS-CRM Raw Data").Cells(datanum, myDescCol).Value, "https://extern.website.com/xyz/og/inu/dis/") Then 

充分：

 If Cells(datanum, myDescCol).Value Like "*Design Review*" Or Cells(datanum, myDescCol).Value Like "*Design Review Protocol*" Or Cells(datanum, myDescCol).Value Like "*Review Protocol*" Then If InStr(1, Worksheets("CS-CRM Raw Data").Cells(datanum, myDescCol).Value, "https://extern.website.com/xyz/og/inu/dis/") Then Worksheets("Request Results").Cells(reportnum, 7).Value = "Yes" ElseIf Cells(datanum, myDescCol).Value Like "*Not Required*" Then Worksheets("Request Results").Cells(reportnum, 7).Value = "No" Worksheets("Request Results").Cells(reportnum, 7).Interior.Color = 65535 Else Worksheets("Request Results").Cells(reportnum, 7).Value = "No" End If Else Worksheets("Request Results").Cells(reportnum, 7).Value = "No" End If