特定の列のExcel行に改行を挿入するマクロ

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に貼り付ける必要があります。

おかげで、私は正しく、あなたが列Kでコピーされたレコードをループにしたいと改行を追加することを理解していれば

Answer 1

？ その場合、あなたは2から始まるKでセルを介して、この（これは1から始まるすべての列をコピーします）とループを使用することができ、あなたは必要に応じていることを変更することができます。

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