excel - 如何将文本附加到单元格并保持格式？

Question

我尝试过以这种非常简单的方式来做到这一点。它有效，新文本添加到原始文本，但原始文本的格式(粗体等)丢失!

  ActiveSheet.Cells(ActiveCell.Row, 13).Value = ActiveSheet.Cells(ActiveCell.Row, 13) & vbCrLf & Date

是否有任何简单的解决方案来保持格式？

Answer 1

这可能会成功:

ActiveSheet.Cells(ActiveCell.Row, 13).Copy
ActiveSheet.Cells(ActiveCell.Row, 13).Value = ActiveSheet.Cells(ActiveCell.Row, 13) & vbCrLf & Date
ActiveSheet.Cells(ActiveCell.Row, 13).PasteSpecial Paste:=xlPasteFormats

要显示换行符，您需要确保目标单元格启用了换行符，或者您通过代码设置它，如下所示:

ActiveSheet.Cells(ActiveCell.Row, 13).WrapText = True

编辑:对于另一种方法，请查看@Masouds 出色的答案。

编辑:这会在保留所有其他格式的同时添加文本:

With ActiveCell
    .Characters(Len(.Value) + 1).Insert vbCrLf & Date
End With

请注意，添加的文本填充具有单元格中最后一个字符的格式。