Tengo una oficina 2007.XLSX archivo que contiene más de 5000 registros como el siguiente (una sola celda con varias filas de texto). El problema: en una celda adyacente, poner el recuento de incidentes desde la celda. En cuanto a los datos de celda para A1 puede ver 3 incidentes:

Celda A1:

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

El problema es que el valor de la fecha no es consistente. El día, el mes y la hora pueden ser de uno o dos dígitos, pero siempre se anotan en una nueva línea.

Mi solución de código fue tomar la celda, dividirla en el salto de línea, recortar todo 5 caracteres después del último ':' y evaluar el resultado contra mi expresión regular. Después de eso, algunos recuentos básicos y texto se insertan en la celda adyacente.

El siguiente es un ejemplo de cómo se llamaría la función.

'calling function from another source:

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

¿Hay algún código que tome el valor de la cadena y devuelva un conteo de coincidencias a la expresión regular?