Excel OfficeScript宏优化需求：自动右移复制列并清除非公式内容

修改思路 #

1. 动态获取源列：不再固定复制指定列，改为自动识别工作表中最后一个有数据的列作为源列，每次运行脚本都会自动向右偏移复制。
2. 批量清除非公式内容：替换原代码中手动指定清除范围的逻辑，自动遍历新复制列的所有单元格，仅保留公式内容，清除无公式的单元格内容。

完整代码 #

function main(workbook: ExcelScript.Workbook) {
    let selectedSheet = workbook.getActiveWorksheet();
    // 获取工作表已使用范围，判断是否有数据
    let usedRange = selectedSheet.getUsedRange();
    if (!usedRange) {
        console.log("工作表无数据可复制");
        return;
    }

    // 获取最后一个有数据的列，作为复制源列
    let sourceCol = usedRange.getLastColumn().getEntireColumn();
    // 目标列为源列右侧相邻列
    let targetCol = sourceCol.getOffsetRange(0, 1).getEntireColumn();

    // 复制源列到目标列（包含格式、公式等所有内容）
    targetCol.copyFrom(sourceCol, ExcelScript.RangeCopyType.all, false, false);

    // 获取目标列的已使用范围（避免遍历整列提升效率）
    let targetUsedRange = targetCol.getUsedRange();
    if (!targetUsedRange) {
        return;
    }

    // 获取目标列所有单元格的公式内容
    let formulas = targetUsedRange.getFormulas();
    // 遍历每个单元格，清除无公式的内容
    for (let rowIndex = 0; rowIndex < formulas.length; rowIndex++) {
        for (let colIndex = 0; colIndex < formulas[rowIndex].length; colIndex++) {
            if (!formulas[rowIndex][colIndex]) {
                targetUsedRange.getCell(rowIndex, colIndex).clear(ExcelScript.ClearApplyTo.contents);
            }
        }
    }
}

关键代码说明 #

• 动态列获取：getUsedRange().getLastColumn()自动定位最后一个有数据的列，确保每次复制都是最新的列，实现自动向右偏移。
• 非公式内容清除：通过getFormulas()获取单元格的公式内容，判断为空则清除单元格内容，替代原手动指定范围的方式，适配任意列的情况。
• 性能优化：使用getUsedRange()而非整列遍历，减少不必要的单元格操作，提升脚本运行效率。

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