Question

vba如何提取单元格内每一行内容或如何获取单元格换行字符

该问题的关键是如何识别自动换行的单元格内文本自动换行的位置，而且是批量的提取出来。单元格内没有换行符，当文本内容大于显示列宽时，文本自动换呈多行显示。

Answer 1

步骤如下：

1.将A1按换行符分开到B之后的列中：

2.alt+F11，输入如下代码：

3.F5运行代码，结果如下：

Answer 2

请测试下面的代码，思路是先将A列的内容连接在一起，然后用split根据改行拆分成各行写入B列。
Sub 改行拆分()
Dim str As String
Dim i As Integer, j As Integer, k As Integer, ar, arr
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Len(Cells(i, 1)) > 0 Then
str = Cells(i, 1).Text & Chr(10) & str
End If
Next i

ar = Split(str, Chr(10))
ReDim arr(1 To UBound(ar) + 1, 1 To 1)
For i = 0 To UBound(ar)
k = k + 1
arr(k, 1) = ar(i)
Next
With Cells(1, 2)
.EntireColumn.NumberFormatLocal = "@"
.Resize(k) = arr
End With
End Sub

追问

你好首先感谢你的回答但抱歉的是你的代码没用，测试其功能是a列复制到b列，b列不自动换行而已

追答

图片上的A列单元格中的是Alt+Enter的换行符？还是符合列宽的换行？
在本机测试完全没有问题。

追问

是列宽调整的换行不是强制换行

追答

你提的问题是根据换行来拆分，所以代码的判断条件是换行符。
而实际数据中没有换行，代码没有反应很正常。
给你大米能做出红烧肉么？

追问

大米不能做成肉，但可以用来做饭。我提的问题要点是识别自动换行单元格内每行文本的换行位置或行尾字符，以此实现分段截取。如果不能，能米成肉就不会求教大家了。问题有难度，还需多费心啊！

Answer 3

splitdata = Split(Range("G3").Value, Chr(10)) 用 split 来提取字符串

追问

你好你的这个也没效果谢谢

追答

我怀疑你的换行不是换行符，所以导致split 函数无法使用 你把列拉宽点 字数是否改变？

追问

嗯是自动换行