excel-vba - reemplazar - salto de linea en excel formula

Agregue saltos de línea en la celda a 1000 filas de datos

Question

Actualmente estoy usando el siguiente código para agregar un salto de línea a los datos de celda en la columna C y copiarlo a la columna K. Necesito aplicar saltos de línea a un rango de datos. Tengo 1000 filas de datos en la columna C. Cualquier ayuda será muy apreciada.

Sub Macro
    Dim Stem As Variant
    Stem = ThisWorkbook.Worksheets ("Sheet1").Range("C2")
    Range ("K2").Select
    Range("K2").FormulaR1C1 = Stem & Chr(10) & ""
End Sub

Gracias

Answer 1

Gracias a todos por sus respuestas. El atlas pudo escribir mi primer guión y obtuvo el código para agregar un salto de línea dentro de la celda.

Sub AddLineBreak()
Dim Stem As Variant
Stem = ThisWorkbook.Worksheets("Sheet1").Range("C2")

Dim i As Integer
i = 2
''this will terminate the loop if an empty cell occurs in the middle of data
Do While Cells(i, "C").Value <> ""
  Cells(i, "K").Value = Cells(i, "C").Value & vbCrLf
  i = i + 1
Loop

End Sub

Answer 2

Prueba esto:

Sub copyAndNewLine()
''copy column C to K
Columns("C").Copy Destination:=Columns("K")

''loop through all cells in K and add new line
For i = 2 To Cells(Rows.Count, "K").End(xlUp).Row
    Cells(i, "K").Value = Cells(i, "K").Value & vbCrLf
Next i
End Sub

Answer 3

Un par de cosas:

• Mejor atar sus variables temprano que tarde (mejor administración de la memoria, aprovechar intellisense, etc.)
• Por lo general, las mejores prácticas para evitar el uso de "seleccionar" si es posible.
• Su variable Stem es un objeto (Range Object) y por lo tanto necesita ser "Set"

Prueba esto:

Sub Macro
    Dim WS As Worksheet
    Dim Stem As Range
    Dim R2 As Range
    Dim Rng as Range

    Set WS = ActiveWorkbook.Sheets("Sheet1")
    Set Stem = WS.Range("C2", Cells(WS.Range("C2").End(xlDown).Row, WS.Range("C2").Column))
    Set R2 = WS.Range("K2", Cells(Stem.End(xlDown).Row, WS.Range("K2").Column))

    R2.Value = Stem.Value
    ''New Code
    For Each Rng In R2
        Rng.Value = Rng.Value & Chr(10) & ""
    Next Rng
    ''Old Code: R2.End(xlDown) = R2.End(xlDown) & Chr(10) & ""

End Sub

Lo que hace esto es establecer primero la hoja de trabajo que está usando. Luego, establece su rango de trabajo (Stem) con el formato Range (cell1, cell2). Cell1 I definido como "C2". La siguiente expresión está usando la función Cells (). Es el equivalente VBA de estar en "C2" y presionar Ctl + Abajo, luego ver en qué fila estás.

Luego, configuré su rango de destino, R2, de una manera similar, pero utilicé el rango de Stem para determinar qué tan grande debería ser.

Finalmente, para obtener una copia precisa, su rango de destino debe ser del mismo tamaño que su rango. La expresión .value to .value pega los datos. Luego, sus caracteres adicionales se agregan a su nuevo campo de datos.

Algo para tener en cuenta con .End (xlDown) ... si tiene filas en blanco en medio de sus datos, se detendrá allí, no irá hasta el final. ¡Espero que esto ayude!

EDITAR: El bucle For Each recorrerá cada rango (es decir, celda) en su rango de destino, R2, y agregará sus nuevos caracteres. Espero que te quede mejor.