Код VBA для добавления разрыва строки в начало и конец каждой строки Excel с текстом

Question

Я использую следующий код для добавления разрыва строки в конце каждой строки в моей рабочей таблице:

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

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

Есть ли способ также перебрать все ячейки в Dи добавить разрыв строки к началу каждой ячейки?По сути, я делаю это, чтобы создать визуальное пространство вверху и внизу текста в каждой строке.

Answer 1

заменить:

Cells(i, "D").Value = Cells(i, "D").Value & vbCrLf

на:

Cells(i, "D").Value = vbCrLf & Cells(i, "D").Value & vbCrLf