Question

我对宏很天真，我需要一个宏按钮在行中每个数据的末尾输入换行符。我在特定列中有大约1000行数据。我需要将其应用于选定的列。我目前正在使用ALT + ENTER，但这很耗时。

非常感谢任何帮助。

我目前正在使用以下代码

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

以上代码仅复制C2数据并粘贴到K2中并应用公式。但是我需要将C2列中的所有数据：C复制并粘贴到K2：K中。

由于

Answer 1

如果我理解正确，你想循环遍历K列中复制的记录并添加换行符？在这种情况下，您可以使用此（这将从1开始复制所有列）并从2开始循环K中的单元格，您可以根据需要更改它：

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

宏以在特定列中的excel行中插入换行符

1 个答案: