Excel. Поиск символа и запись номера

[4nik]

Здравствуйте, помогите решить проблему.
Есть столбец из 14000 символов, мне нужно найти только цифру 10. И, в 1-ом соседнем столбце указать последовательно номера наайденных 10-ок, а во втором столбце указать последовательно расстояние между номерами 10-ок, N = Nтекущий - Nпредыдущий.
Как это можно сделать?
Спасибо за помощь.

[IgorGO]

см. во вложении

[Sasha_Smirnov]

Sub SeekForSomeSubstringAndCountGaps()
'Макросу необходимо назначить кнопку или сочетание клавиш.
Const S As String = "10" 'подстрока, которую ищем и считаем
Dim col As Variant, amountS As Integer
Dim gap As Integer, d As Integer

If col = 0 Then
SendKeys "^{home}", True 'идём "домой" - в ячейку R1C1
col = InputBox("№ столбца:", "OK?", ActiveCell.Column)
If Not IsNumeric(col) Then Exit Sub
If col > 254 Then Exit Sub
Do While ActiveCell.Column < col: SendKeys "{tab}", True: Loop
End If


Do While ActiveCell.Text <> vbNullString 'ищем до пустой!

'анализируем активную ячейку на кол-во S в ней
d = InStr(1, ActiveCell.Text, S)
Do While d > 0
amountS = amountS + 1
If Len(ActiveCell.Text > d + Len(S)) Then 'значит, есть место для S
d = InStr(d + 2, ActiveCell.Text, S)
End If
Loop

If InStr(ActiveCell.Text, S) Then
'печать количества накопленных подстрок (S)
SendKeys "{tab}", True 'переход в столбик +1
ActiveCell.FormulaR1C1 = amountS

If gap > 0 Then
SendKeys "{tab}", True 'переход в столбик +2
ActiveCell.FormulaR1C1 = gap 'печать интервала
gap = 0 'обнуление интервала
SendKeys "+{tab}", True 'нажатие Shift-Tab (шаг назад по строке)
End If

SendKeys "+{tab}", True 'возврат в тот столбик
End If

SendKeys "{enter}", True 'перевод строки (клавишей ENTER)
If amountS > 0 Then gap = gap + 1 'подсчёт интервала
Loop


If amountS = 0 Then MsgBox _
"До пустой ячейки " & ActiveCell.Column & "-й колонки подстрок «" & S & "» нет."
End Sub

[SAS888]

Ну, если с помощью VBA, то можно существенно проще.
Посмотрите вложения. Запустите макрос "Main".
В первом файле - аналог решения от IgorGO.
Во втором - с произвольным выбором столбца.

[Sasha_Smirnov]

10-ки_2.rar, безусловно, великолепный образчик VBA!
Одно но (оно и у меня есть, но не то): строки типа "110" или "10а" — вне анализа.
Уж другое дело, нужны ли они такие, но по условию — да.

P/s: можно скть, вы построили солидный сталинский дом, а я — хрущобу*.
_______________________
* где тоже можно жить уютно

[SAS888]

строки типа "110" или "10а" — вне анализа

Я так понимаю, что "10" и "110" - это разные значения.!?
Чтобы и "10", и "110", и "10а", и, например, "55510555" считались как "истина", то в аргументах оператора Find нужно поменять LookAt:=xlWhole на LookAt:=xlPart. Т.е. искать ячейки, в которых "10" присутствует хотя бы как часть строки.

[Sasha_Smirnov]

Классно! Вот ещё узнать бы, для кого старались!..
А то ведь обидно монитором... капусту в бочке квасить.

Кстати, обнаружил, что на быстром компьютере мой код обсчитывает лишь 1-й столбец!
Отладка показала, что первый
SendKeys "{tab}" там надо заменить на
SendKeys "{right}".
И, чисто для себя, я вместо Dim col сделал Static col. Тогда при втором запуске можно выбрать искомую колонку вручную.
Век учи — век «живись»!

[Sasha_Smirnov]

И, для очистки совести:

d + 2 необходимо заменить на d + Len(S)

Тогда действительно пригодится для подстрок любой длины.

[vinch]

Помогите прописать поиск в экселе, необходимо что бы поиск распространялся на весь документ (несколько страниц)