|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 佛山小老鼠 于 2017-12-6 06:56 编辑
- Option Explicit
- Sub 拆分()
- Dim x, arr1, z, arr2, arr3(1 To 10000, 1 To 1), y, k
- x = Cells(Rows.Count, 1).End(xlUp).Row '获取A列最后一个非空单元格的行号
- arr1 = Range("A1:A" & x) '把A列的数据装入数组中
- For y = 1 To UBound(arr1) '循环数组arr1的行
- arr2 = Split(arr1(y, 1), " ") '按空格拆分,把拆分的数据装入arr2
- For z = 0 To UBound(arr2) '循环数组arr2
- k = k + 1
- '把数据从数组arr2中转让给arr3,进行存储,因为arr2是动态的
- arr3(k, 1) = arr2(z)
- Next z
- Next y
- '把数组arr3读出来,放在B列
- [B1].Resize(k, 1) = arr3
- End Sub
复制代码
|
|