宏在特定列的Excel行中插入換行符

我對宏很天真，我需要一個宏按鈕在行中每個數據的末尾輸入換行符。我在特定列中有大約1000行數據。我需要將其應用於選定的列。我目前正在使用ALT + ENTER，但它很耗時。宏在特定列的Excel行中插入換行符

任何幫助將不勝感激。

我目前使用下面的代碼

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中。

感謝

來源

2016-09-20 Siraj

什麼代碼，你目前正在使用，什麼它不正確嗎？ – YowE3K

您的代碼完全按照您要求的方式執行 - 將C2複製到K2。您可能需要查找選擇範圍，而不是單元格。 –

絕對，但我不知道如何編碼。請幫忙。 – Siraj

如果我理解的正確，你通過K列複製的記錄要循環，並添加換行符？在您可以使用此經過的小區以K從2（這將複製從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

來源

2016-09-21 09:25:05 Pav

宏在特定列的Excel行中插入換行符

回答

相關問題