problema con comentarios de excel

"Eduardo" escribió
Mostrar la cita

soy un desarrollador que esta creando una BD, todos los datos que hay que
migrar estan en excel, pero con un problema, una de las filas importantes
esta como comentario... tengo que pasarla a columnas, y son mas de 3000
entradas, explico mejor, las columnas son de compra de productos... estan
los
precios y los proveedores. pero la descripcion de los productos esta como
comentario, ( y de varias filas cada comentario), para lavarme las manos,
este error se genero antes que llegara a la empresa, nadie sabe como puedo
sacarme de encima el tedio de hacerlo manualmente 1 a 1????

Hola Eduardo,

Prueba el siguiente código,

He supuesto que en la columna A están las celdas con los comentarios, y que
vas a situar el texto del comentario en la columna B.
También he considerado que no puede haber comentarios en celdas vacías. pero
sí puede haber celdas llenas sin comentario.

Si necesitas cualquier aclaración, cometas.

Un saludo,
Juan

En un módulo estándar

Inicio Código
Sub LeerComentarios()
Dim i As Long
i = 1
Do While Range("A" & i) <> ""
On Error Resume Next
Range("B" & i) = Replace(Range("A" & i).Comment.Text, Chr(10), " ")
On Error GoTo 0
i = i + 1
Loop

End Sub
Fin Código