如何从包装的文本单元格中提取特定的文本行？

Posted 2021-03-27

是否可以通过VBA代码从包装的文本单元格中仅前两行？

例如，包装的文本单元格的值为：

aaaaaaa

bbbbbbb

ccccccc

ddddddd

因此单元格包含4行包装文本。我需要提取

"aaaaaaaa

bbbbbbbb"

答案

使用A1中的文本，您可以尝试使用此公式来提取前两行：

 =LEFT(A1,FIND(CHAR(10),A1,FIND(CHAR(10),A1)+2))

您可以使用=SUBSTITUTE(...,CHAR(10)," ")用空格替换换行符。

如果要使用VBA，可以使用：

 split(cells(1,1),chr(10))(0) & " " & split(cells(1,1),chr(10))(1)

另一答案

那么像这样的换行符的VBA代码是Chr10。所以你需要使用它来使用Mid函数找到第二个换行符的位置，并使用Left函数获取之前的所有字符。

如果没有人给出更明确的答案，我将在以后有时间测试时编辑这个问题。

编辑

刚才我注意到你说的是“包裹文字”，而不是像我想象的那样是换行符。线条是仅按列大小创建的，还是有实际的换行符？