Допустим у нас есть ячейки со строками урлов, в которых нужно выбрать только урлы с «.html»
/raskhodnye-stroitelnye-materialy/valiki-malyarnye/rolik-smen.html
/raskhodnye-stroitelnye-materialy/valiki-malyarnye/valik-priz.html
/849-tm_large_default/rolik-smennyj.jpg
/1291-tm_thickbox_default/valik.jpg
/raskhodnye-stroitelnye-materialy/valiki-malyarnye/rolik.html
Для этого нам надо обойти все ячейки в колонке и сделать поиск по части слова. Для этого может подойти оператор Like
По сути он похож на Like из SQL
Поиск подстроки в строке с использованием Like
Sub Макрос1()
row1 = 1
col = 2
max_rows = 2000
i = 1
p_url = ""
Sheets("Лист1").Select
For Each cel In Range(Cells(row1, col), Cells(max_rows, col))
If Cells(i, 1) Like "*.html" Then
p_url = Cells(i, 1).Value
End If
i = i + 1
Next cel
End Sub
