?excel使用技巧大全上一节咱们讲了怎样把数据并合在一起，现在咱们看下怎样把合并后的数据给拆分开来。

请看下图：

代码如下：

Sub 合并拆分()

Dim hs%, rng As Range, n%, arr1

hs = Range("a2", [a2].End(xlDown)).Rows.Count

For Each rng In Range("a2", [a2].End(xlDown))

n = n + 1

arr1 = rng.Resize(1, 4)

Cells(n + 1, 6) = join(Application.Transpose(Application.Transpose(arr1)))

Cells(n + 1, 7).Resize(1, 4) = Split(Cells(n + 1, 6), " ")

Next

End Sub

方法语法类似join

split（待拆分的数据，按照什么来拆分）

---