У меня офис 2007.XLSX файл, содержащий более 5000 записей, как показано ниже (одна ячейка с несколькими строками текста). Вопрос: в соседней ячейке поставить количество инцидентов из ячейки. Глядя на данные ячейки для A1, вы можете увидеть 3 инцидента:

Ячейка А1:

1/15/2013 1:30:11 AM Userx
Had to reboot system
1/15/2013 1:32:11 AM Userx
System running finished rebooting and appears to be working
11/15/2013 12:30:11 AM Userx
System hung again

Проблема в том, что значение даты не соответствует. День, месяц и час могут быть однозначными или двузначными, но они всегда отмечаются в новой строке.

Моим решением кода было взять ячейку, разбить ее на разрыв строки, обрезать все на 5 символов после последнего символа «:» и сравнить результат с моим регулярным выражением. После этого некоторые основные подсчет и текст вставляются в соседнюю ячейку.

Ниже приведен пример вызова функции.

'calling function from another source:

thecount = CountOfDateValues(Range("a1").Value) 'get count
Range("b1").Value = thecount 'put count to adjacent cell

Есть ли код, который будет принимать строковое значение и возвращать количество совпадений регулярному выражению?