在vba中获取包装文本单元格的完整值

Question

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

1父母
1个孩子

在vba中，当我尝试获取单元格的值时：

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

我只得到＆＃34; 1父母＆＃34;，我怎样才能获得该单元格的全部价值？

Answer 1

编辑：拆分功能将根据任意数量的字符拆分文本字符串。在这种情况下，我们按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