表格多行_拆分Excel多行表格：解法二（VBA)

我用Python帮朋友拆分了Excel表格

昨天发的文章是我用python写的。后面天职的柳初阳发了我一个VBA的解法。

看样子更简洁。

Sub test()Dim arr1, arr2, arr3, i, m   '声明变量For i = 1 To Range("A1048576").End(xlUp).Row   '第一个循环，遍历A列所有单元格    arr1 = Split(Cells(i, 2).Value, Chr(10))   'Chr(10)为换行符，用split函数通过换行符分割股东，装入数组arr    arr2 = Split(Cells(i, 3).Value, Chr(10))   '用split函数通过换行符分割出资比例    arr3 = Split(Cells(i, 4).Value, Chr(10))   '用split函数通过换行符分割认缴金额        For p = 0 To UBound(arr1, 1)               '第二个循环，将数组中的数据写入单元格(以2行7列起始依次递增)        Cells(2 + m, 7) = arr1(p)              '因为三个数组中的数据互为对应关系，所以直接取任意一个数据的        Cells(2 + m, 8) = arr2(p)              '上界进行循环就行了        Cells(2 + m, 9) = arr3(p)        m = m + 1    Next    NextEnd Sub

需要学习的可以下载：

https://share.weiyun.com/5imE2rB