获取vba中换行文本单元格的完整值

Question

我有一个单元格A1。当我点击它时，"换行"图标被激活，值显示如下：

1位家长
1个儿童

在vba中，当我试图获得如下单元格的值时：

Dim value As String
value=Cells(1,1).Value

我只得到"1个父"，如何才能得到单元格的全部值？

Answer 1

EDIT：分割函数将根据任意数量的字符分割文本字符串。在这种情况下，我们通过换行符Chr（10）进行拆分。从本质上讲，您将文本拆分为多个部分，拆分发生在任何换行处，然后将它们放回一个名为"value"的字符串变量中。现在，"value"可以用在任何你想要完整字符串的地方。

Dim value as string
Dim x as Variant
Dim i as integer
x = split(Cells(1,1),Chr(10))
for i = 0 to ubound(x)
   value = value & x(i)
Next i