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

替换：

AND a.elem -> 'action' = 'yes'

具有：

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