Cómo implementar saltos de línea en celdas con VBA

Suponga que sus datos están en la columna A, comenzando en A1. Podemos ir a VBA.

Sub aa()

Dim i, a, b, c 'Definir variables.

Para I = 1 en el rango("A65536"). FINAL(XLUP). La fila recorre todos los rangos de datos en la columna a.

C = Celda(I, 1). Obtenga el valor de la celda actual.

B = Left(c, InStr(c, " ")'Intercepta la fecha en la celda en b.

A = Right(c, Len(c)-InStr( c, "")' Intercepta la hora en la celda para c.

Cells(i, 1) = b amp; vbCrLf amp; 'a' Agrega el salto de línea vbcrlf a la fecha y la hora, luego escribe Ingrese la celda actual

Luego

Finalizar conector