Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo implementar saltos de línea en celdas con VBA

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