посчитать кол-во запятых в ячейке >(^.^)<

[Blame]

Драсьте)
Это опять я вам надоедаю.
Подскажите, пожалуйста, функцию, которая считает кол-во определенных символов, если такова существует. В моем случае - кол-во запятых.
Вопрос вот в чём...
На входе:

________A______________|_________B___
W5|M|1, G4|t1|1 ________|    first
55|R|1_________________|    second
5F|D|1, T4|h1|2, 5|Е|1 __|    third

В столбце "А" перечислены через запятую данные. Необходимо их разделить и записать всё в столбик, сопоставив для каждой строчки данные из столбца В. То есть на выходе должно получиться:

__А_____|__B__
W5|M|1__| first
G4|t1|1__| first
55|R|1 __| second
5F|D|1___| third
T4|h1|2 _| third
5|Е|1 ___| third

Вот у меня и возникла идея посчитать количество запятых в каждой строке столбца А, прибавить единицу к этому значению и получившееся кол-во раз прописать слово, стоящее в колонке B вниз.
С разделением данных из колонки А в столбик я справилась. Осталось занести данные в столбец В необходимое для каждой строчки кол-во раз. Просто другого способа пока не придумала

Это вроде с помощью функций "LBound" или "UBound" можно сделать ?
Я в правильном направлении мышлю ?

[vikttur]

Тема рядом по разделению строки на слова. Там разделитель - пробел. Переделать под запятую легко.

[Blame]

Vikttur

Благодарю за ответ)

Но мне нужно чуть-чуть не это)) Я, наверное, не ясно изъяснилась)) Или я Вас не правильно поняла))
Строки-то я на слова разделила без проблем, слава Богу)
Мне нужно сопоставить для разделенной строки А значения в столбце В необходимое кол-во раз.

Рисуночек прикрепила)) ->

[doober]

Function M_Count(s As String)
M_Count = UBound(Split(s, ","))
End Function

[vikttur]

Можно формулой. Одной. Или с доп. столбцом для облегчения вычислений. Но:

One Life - One Love - No One File

[Blame]

Doober
Вначале не поняла, что и как, но сейчас уже получилось всё замечательно!! \(*.*)/
Масима-масима!!!


Vikttur
Наверное, вариант с формулой, к сожалению, не подойдет.
Если только её можно программно подключить к макросу. Я правда не знаю, возможно ли это.
файлик приложила на всякий случай))

[MCH]

Сообщение от Blame

файлик приложила на всякий случай))

может так:

Sub Blame()
Dim i As Integer, j As Integer, s
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    For Each s In Split(Cells(i, 1), ",")
        j = j + 1
        Cells(j + 1, 4).Resize(1, 3) = Split(s, "|")
        Cells(j + 1, 7) = Cells(i, 2).Value
    Next s
Next i
End Sub