将.value（或.text）从文本框添加到单元格而不覆盖并在新行中

Question

这会将表单文本框中的数据发送到相应的单元格，而不会覆盖单元格内容：

 ActiveCell.Offset(0, 23).Text = ActiveCell.Offset(0, 23) & "whatever the textbox contains"

我遇到的问题是，这只是连接新数据和旧数据，我需要将每个新条目分隔成一个新行。我试过这个：

ActiveCell.Offset(0, 23).Value = ActiveCell.Offset(0, 23).Value & _
    Application.SendKeys("%{ENTER}") & MASCACIncomingRef.Value

但是在编译时我错过了一些让sendkey工作的东西。我无法找到任何有解决方案的帖子......

我需要确保每个条目都在单元格中的新行中，因为我使用该单元格的内容在表单的另一部分中显示为一种表格（不要问） ，所以我需要将每个添加到单元格的新值添加到单元格中已有的最后一个值的下方或顶部。有人可以帮忙吗？

Answer 1

要在单元格中添加换行符，请添加Chr(10)或vbLf，如：

ActiveCell.Offset(0, 23).Text = ActiveCell.Offset(0, 23) & Chr(10) & "whatever the textbox contains"