玖叶教程网

下面是代码分享

Sub yu()

Dim arr As Range, arr2 As Range, arr3, n 申明变量

ReDim arr3(1 To Application.CountA(Range("a:a")) - 1) 重新申明一维数组

Set arr = Range("a2", Range("a2").End(xlDown)) 动态获取区域

For Each arr2 In arr 区域循环

n = n + 1 累加

arr3(n) = Split(arr2, " ") 按指定字符拆分字符串

Next 循环结尾

Range("b2").Resize(n, 2) = Application.Transpose(Application.Transpose(arr3)) 两次转换数组

第一次转换为行，第二次转换为列。

End Sub

路过的智者请停下你的脚步；数组的写入内容与输出、数组内容赋给数组，数组的内容写给另一个工作簿、等，都有那些好的方法请留言讨论一下……