Подсчет кол-ва повторений символов в одной ячейке.

[Hagen83]

Всем привет! Подскажите, пожалуйста, как подсчитать количество повторений последовательности, указанной в шапке приложенного файла, для каждой ячейки столбца B.

[Hagen83]

Сообщение удалено.

[DV68]

Так:

=(ДЛСТР($B2)-ДЛСТР(ПОДСТАВИТЬ($B2;C$1;)))/ДЛСТР(C$1)

[DiemonStar]

прежде всего, как сравнивать:

в исходном слове: WLWLWLW
сколько будет комбинаций LWL - одна или две?

[Hugo121]

Для C2:

=(LEN(B2)-LEN(SUBSTITUTE(B2,$C$1,"")))/LEN($C$1)

[Hagen83]

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

Так:

=(ДЛСТР($B2)-ДЛСТР(ПОДСТАВИТЬ($B2;C$1;)))/ДЛСТР(C$1)

Огромное спасибо. Получилось.

[Hagen83]

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

прежде всего, как сравнивать:

в исходном слове: WLWLWLW
сколько будет комбинаций LWL - одна или две?

Две комбинации.

[DiemonStar]

Две комбинации.

Огромное спасибо. Получилось.

Тогда не получилось... Указанная формула только одно вхождение находит. Тут, скорей всего, потребуется пользовательскую функцию использовать. Типа такой:

Public Function CntComb(Fnd As String, Txt As String) As Integer
  CntComb = 0
  I = InStr(1, Txt, Fnd, vbTextCompare)
  While I > 0
    CntComb = CntComb + 1
    I = InStr(I + 1, Txt, Fnd, vbTextCompare)
  Wend
End Function

[Hagen83]

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

Тогда не получилось... Указанная формула только одно вхождение находит.

Действительно...Формула находит совпадения без наложений. Может можно как-то это учесть?

[Hagen83]

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

Тогда не получилось... Указанная формула только одно вхождение находит. Тут, скорей всего, потребуется пользовательскую функцию использовать. Типа такой:

Public Function CntComb(Fnd As String, Txt As String) As Integer
  CntComb = 0
  I = InStr(1, Txt, Fnd, vbTextCompare)
  While I > 0
    CntComb = CntComb + 1
    I = InStr(I + 1, Txt, Fnd, vbTextCompare)
  Wend
End Function

Спасибо большое. Попробую.