按单元格逗号分隔值重复Excel行的需求及VBA脚本问题排查

原VBA脚本的核心问题是从上到下遍历行，插入新行后会打乱后续行的索引逻辑，导致部分行处理异常，出现仅重复D列第一个值的情况。此外，频繁调整rng范围也容易引发逻辑错误。

采用从下往上遍历+批量处理的方式，避免插入行带来的索引混乱，同时提升运行效率：

Sub SplitDColumnRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim arrParts() As String
    Dim partCount As Integer
    Dim r As Long
    
    Set ws = ActiveSheet ' 可改为指定工作表，如Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 以A列为准获取最后一行
    
    ' 从最后一行往上遍历，避免插入行影响后续索引
    For i = lastRow To 2 Step -1
        arrParts = Split(ws.Cells(i, "D").Value, ",")
        partCount = UBound(arrParts) + 1 ' 获取拆分后的项数
        
        If partCount > 1 Then
            ' 插入需要的空行数（项数-1）
            ws.Rows(i + 1 & ":" & i + partCount - 1).Insert Shift:=xlDown
            
            ' 复制当前行的内容到新插入的行
            ws.Rows(i).Copy Destination:=ws.Rows(i + 1 & ":" & i + partCount - 1)
            
            ' 逐个替换D列的内容
            For r = 0 To partCount - 1
                ws.Cells(i + r, "D").Value = Trim(arrParts(r))
            Next r
        End If
    Next i
End Sub

关键改进点 #

• 从下往上遍历行，插入新行不会影响未处理的行索引
• 批量插入多行，减少操作次数，提升效率
• 直接操作工作表对象，避免rng范围调整的逻辑错误

如果使用Google Sheets，可使用以下脚本实现相同功能：

function splitDColumnIntoRows() {
    const sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
    const data = sheet.getDataRange().getValues();
    const newData = [];
    
    // 遍历每一行数据
    data.forEach(row => {
        const dValue = row[3]; // D列是第4列，索引从0开始
        if (typeof dValue === 'string' && dValue.includes(',')) {
            // 拆分D列内容
            const parts = dValue.split(',').map(part => part.trim());
            // 为每个拆分项生成新行
            parts.forEach(part => {
                const newRow = [...row];
                newRow[3] = part;
                newData.push(newRow);
            });
        } else {
            // 无拆分内容，直接保留原行
            newData.push(row);
        }
    });
    
    // 清空原数据并写入新数据
    sheet.clearContents();
    sheet.getRange(1, 1, newData.length, newData[0].length).setValues(newData);
}

使用说明 #

1. 打开Google Sheets，点击「扩展程序」→「Apps脚本」
2. 将上述代码粘贴到脚本编辑器，保存并运行
3. 首次运行需授权脚本访问权限

内容的提问来源于stack exchange，提问作者victorsionado