VBA小技巧14：拆分带有换行的单元格中的文本

学习Excel技术，关注微信公众号：

excelperfect

在Excel中，我们可以使用“分列”功能（即“文本到列”），很容易地将单元格中带有特定分隔符的文本拆分到不同的列中。但是，对于使用<Alt+Enter>组合键换行的文本，不能够使用这个功能。例如，下图1所示的单元格中的数据，想要将其拆分到不同的列中，“分列”功能对其无效。

图1

我们可以使用一段VBA代码来实现。

下面的VBA代码将当前单元格中以换行符分隔的文本拆分到其相邻单元格中，如下图2所示。

图2

代码如下：

Sub SplitText()

'拆分当前单元格中使用换行符分隔的文本

Dim varSplit As Variant

Dim lngTotal As Long

varSplit = Split(ActiveCell.Value, Chr(10))

lngTotal = UBound(varSplit)

Range(Cells(ActiveCell.Row,ActiveCell.Column + 1), _

Cells(ActiveCell.Row, ActiveCell.Column+ 1 + lngTotal)).Value = varSplit

End Sub

代码中：

• 首先，使用Chr(10)作为分隔符拆分当前单元格中的内容。Chr(10)代表换行符。
• 然后，将拆分的值放置到当前单元格相邻的单元格区域中。