优化VBA拆分单元格代码并迁移至Office Scripts需求

一、优化后的VBA代码（支持多分隔符+同步其他列） #

针对原代码仅支持分号拆分的问题，优化后可兼容逗号、分号、竖线三种分隔符，且拆分时同步复制当前行其他列的内容：

Sub SplitMultiDelimiterCells()
    Dim rng As Range
    Set rng = Application.InputBox("请选择需要拆分的单元格范围:", "选择范围", Type:=8)
    Dim cell As Range
    Dim originalRow As Range
    Dim splitValues() As String
    Dim i As Long
    Dim numNewRows As Long
    
    ' 关闭屏幕刷新提升运行效率
    Application.ScreenUpdating = False
    
    For Each cell In rng
        ' 检查单元格是否包含任意一种目标分隔符
        If InStr(cell.Value, ",") > 0 Or InStr(cell.Value, ";") > 0 Or InStr(cell.Value, "|") > 0 Then
            ' 将逗号、竖线统一替换为分号，实现一次拆分兼容多种分隔符
            Dim tempValue As String
            tempValue = Replace(Replace(cell.Value, ",", ";"), "|", ";")
            ' 拆分后去除每个值的前后空格
            splitValues = Split(tempValue, ";")
            For i = LBound(splitValues) To UBound(splitValues)
                splitValues(i) = Trim(splitValues(i))
            Next i
            
            numNewRows = UBound(splitValues)
            ' 批量插入需要的新行
            cell.Offset(1).Resize(numNewRows).EntireRow.Insert shift:=xlDown
            
            ' 复制原行所有列内容到新插入的行，保证其他列数据同步
            Set originalRow = cell.EntireRow
            originalRow.Copy cell.Offset(1).Resize(numNewRows).EntireRow
            
            ' 将拆分后的值写入对应单元格
            cell.Resize(numNewRows + 1).Value = Application.Transpose(splitValues)
            
            ' 自动调整列宽（可选，可注释掉此句关闭）
            cell.EntireColumn.AutoFit
            
            ' 跳转到拆分后的最后一行，避免重复处理同一单元格
            Set cell = cell.Offset(numNewRows)
        End If
    Next cell
    
    Application.ScreenUpdating = True
    MsgBox "拆分完成！"
End Sub

VBA代码关键点： #

• 统一转换分隔符，无需多次判断拆分逻辑
• 批量插入行+复制整行内容，保证其他列数据同步
• 关闭屏幕刷新减少卡顿，提升处理大数据时的效率

二、Office Scripts版本（适配Excel Online） #

将上述逻辑移植为Office Scripts，完全适配Excel Online环境运行：

function main(workbook: ExcelScript.Workbook) {
    // 获取用户选中的单元格范围
    const selectedRange = workbook.getSelectedRange();
    const sheet = selectedRange.getWorksheet();
    const values = selectedRange.getValues();
    const rowCount = selectedRange.getRowCount();
    const targetColIndex = selectedRange.getColumnIndex();
    
    // 从下往上遍历，避免插入行导致的索引错乱
    for (let row = rowCount - 1; row >= 0; row--) {
        const cellValue = values[row][0] as string;
        if (!cellValue) continue;
        
        // 检查是否包含目标分隔符
        if (cellValue.includes(',') || cellValue.includes(';') || cellValue.includes('|')) {
            // 统一替换分隔符为分号，拆分后过滤空值（避免连续分隔符产生无效内容）
            const tempValue = cellValue.replace(/,/g, ';').replace(/\|/g, ';');
            const splitArr = tempValue.split(';').map(val => val.trim()).filter(val => val !== '');
            const splitCount = splitArr.length;
            
            if (splitCount <= 1) continue;
            
            const originalRowNum = row + selectedRange.getRowIndex() + 1; // 转换为Excel原生行号（从1开始）
            // 插入对应数量的新行
            sheet.getRangeByIndexes(originalRowNum, 0, splitCount - 1, sheet.getUsedRange().getColumnCount()).insert(ExcelScript.InsertShiftDirection.down);
            
            // 复制原行所有内容到新插入的行
            sheet.getRow(originalRowNum).copyTo(sheet.getRangeByIndexes(originalRowNum + 1, 0, splitCount - 1, sheet.getUsedRange().getColumnCount()), ExcelScript.RangeCopyType.all);
            
            // 将拆分后的值写入目标列
            const targetRange = sheet.getRangeByIndexes(originalRowNum - 1, targetColIndex, splitCount, 1);
            targetRange.setValues(splitArr.map(val => [val]));
            
            // 自动调整目标列宽度
            sheet.getColumn(targetColIndex).autoFit();
        }
    }
}

Office Scripts关键点： #

• 从下往上遍历，规避插入行导致的索引偏移问题
• 用正则替换统一分隔符，拆分后过滤空值保证数据有效性
• 适配Excel Online的API语法，使用getRangeByIndexes精准操作单元格范围

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