关于vba按分隔符拆分成多行的问题

诅咒之墨

如图，我想把一个表格中的数据按换行符拆分成多行，其实罗刚军老师的excel精灵里有这部分功能（选取转换工具-按分隔符拆分成多行），但是我想搞明白这段代码是如何实现的，于是在网上找了段类似的代码，但是实际应用中这段代码比罗老师的代码慢了很多，大概要多处一倍的时间，百思不得其解。
大佬们有没有更加优化的方案？





代码如下

            

诅咒之墨

代码如下
Sub 单一单元格的多行内容拆分为多行()
    Dim arr As Variant              ' arr 存储要分裂的单元格的内容
    Dim rcount As Long              ' rount 就是有效的行数
    Dim ArrayLength As Integer      ' arr的长度，n行长度就为n
   
    'Get the row num of last row 拿到有效的行数，具体操作为：Cells（Rows.Count," A "） 拿到A列的工作簿的最底下一个单元格（包括空）
    '.End(3) 的目的是从最底下的单元格向上寻找，找到第一个非空的单元格
    '.Row的目的是记录刚刚那个单元格的行数
    rcount = Cells(Rows.Count, "A").End(3).Row
   
    For r = rcount To 1 Step -1                         '对每行的行数进行循环，从最后往前进行遍历
        arr = Split(Cells(r, "E").Value, Chr(10))       ' 将该单元格以Chr（10)为分隔符进行分割
        ArrayLength = UBound(arr) - LBound(arr) + 1         '计算分割后的ARR的长度
        For i = 1 To ArrayLength - 1                        '对Arr内的每个元素进行遍历
            Rows(r & ":" & r).Copy                          '将该行进行复制
            Rows(r + 1 & ":" & r + 1).Insert Shift:=xlDown  '把复制的行插入到该单元格所在行的下一行
            Next i
            Cells(r, "E").Resize(ArrayLength, 1).Value = WorksheetFunction.Transpose(arr)  '将arr转置为列后插入到刚刚生成的哪些新的行中，也就是把A列填好
            
            Erase arr
            Next r
            Application.CutCopyMode = False     '防止大规模复制粘贴而弹出系统默认的对话框
            
            End Sub
            

zxsea_7426

诅咒之墨 发表于 2023-2-20 23:34
代码如下
Sub 单一单元格的多行内容拆分为多行()
    Dim arr As Variant              ' arr 存储要分裂 ...

请将数据放入数组。数组在内存中运行，你这单元格操作肯定用时更多。

zxsea_7426

放入数组运行时间
单元格操作时间:

诅咒之墨

自学，数组一直没搞明白，多谢大佬！

tanglf188

练手：数组+字典

诅咒之墨

tanglf188 发表于 2023-2-27 10:58
练手：数组+字典

拜谢大佬！不胜感激！