Contar la cantidad de números en una celda
Me podrían ayudar con una macro, tengo en la columna B en cada celda con letras y números, y necesito saber cuántos números hay en cada celda, desde la celda B2 hasta la última fila que es variable, el conteo de números lo pueden poner en la celda siguiente.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub ContarNumeros()
'Por.Dante Amor
u = Range("B" & Rows.Count).End(xlUp).Row
Range("C2:C" & u).ClearContents
For i = 2 To u
For j = 1 To Len(Cells(i, "B"))
If InStr(1, "0123456789", Mid(Cells(i, "B"), j, 1)) > 0 Then
Cells(i, "C") = Cells(i, "C") + 1
End If
Next
Next
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
