цикл по строке

[flacon45]

Добрый день!
Подскажите плз. как сделать цикл по строке.

stroka = Cells(3, "C")
fl = False
k = 1

Do While fl = False

k = k + 1
Loop

[EducatedFool]

по какой строке?

stroka = Cells(3, "C")
это не строка, это одна ячейка С3

с какой по какую ячейку надо перебирать, и зачем?

[flacon45]

смысл вот такой.

есть запись в ячейке: hhjjjjjjj №9554-5545445 рвофрфвфыо
нужно извлечь №9554-5545445.
Вот я и думал сделать цикл перебрать эту строку и выбрать номер, который использовать для дальнейшей работы

[IgorGO]

однако - это ячейка, которая содержит строку!
такой цикл подойдет:

Sub ExtractN()
  Const s As String = "hhjjjjjjj №9554-5545445 рвофрфвфыо"
  With CreateObject("vbscript.regexp")
    .Pattern = "№\d+-\d+"
    If .test(s) Then MsgBox .Execute(s)(0)
  End With
End Sub

[flacon45]

спасибо попробую разобраться в скрипте

[Hugo121]

или без заумностей

s = "hhjjjjjjj №9554-5545445 рвофрфвфыо"
MsgBox Split(Split(s, "№", 2)(1), " ", 2)(0)

[flacon45]

спасибо. вот так чуток по дольше но справился)

Строка-ячейка:
Уступка прав №987 от 03.02.2011 г. по КД №9903-9903-4139-C1-M-062-017-065777 от 16.07.12 г.

скрипт:
Dim stroka, stroka2, stroka3

stroka = Cells(3, "C")

iFirst = InStr(stroka, "КД №")

stroka2 = Mid(stroka, iFirst + 4)

iLast = InStr(stroka2, " ")

stroka3 = Mid(stroka2, 1, iLast)
Cells(3, "G") = stroka3

Результат: 9903-9903-4139-C1-M-062-017-065777

[Hugo121]

Почти так же:

s = "Уступка прав №987 от 03.02.2011 г. по КД №9903-9903-4139-C1-M-062-017-065777 от 16.07.12 г."
MsgBox Split(Split(s, "КД №", 2)(1), " ", 2)(0)