Если вы хотите очистить список ActiveX ComboBox, вы можете попробовать что-то вроде этого ...
Sheet1.OLEObjects(1).ListFillRange = ""
Или, точнее, это ...
If TypeName(Sheet1.OLEObjects(1).Object) = "ComboBox" Then
Sheet1.OLEObjects(1).ListFillRange = ""
End If
это должно соответствовать ему хорошо:
/<a\s+([^>]*)href="https?:\/\/([^"]*)"(.*?)>(.*?)<\/a>/
Полезной вещью здесь является ленивое соответствие. *?
это означает, что это будет соответствовать только столько, сколько это абсолютно должно, в противоположность регулярному соответствию, которое является жадным.
Продемонстрировать, с этим текстом:
a b c d a b c d
эти regexes будут иметь различные результаты:
/a.*c/ selects: "a b c d a b c"
/a.*?c/ selects: "a b c"