Excel 365：如何在Code Editor中实现空单元格时终止宏

Excel 365的脚本编辑器使用ExcelScript（基于JavaScript），不兼容VBA语法，所以你之前的VBA代码会报错。以下是添加必填单元格验证后的完整可运行ExcelScript代码：

function main(workbook: ExcelScript.Workbook) {
    let selectedSheet = workbook.getActiveWorksheet();
    // 定义必填单元格，这里以N10为例，可根据实际需求修改
    const requiredCell = selectedSheet.getRange("N10");
    const cellValue = requiredCell.getValue()?.toString().trim() || "";

    // 验证必填单元格是否为空
    if (cellValue === "") {
        alert("请完成必填项！");
        // 选中必填单元格，方便用户定位
        requiredCell.select();
        // 终止宏执行
        return;
    }

    // 以下是原有的宏逻辑
    let _2024 = workbook.getWorksheet("2024");
    // 在2024工作表的第3行插入新行，下移原有内容
    _2024.getRange("3:3").insert(ExcelScript.InsertShiftDirection.down);
    // 复制活动工作表B19:N19区域到2024工作表A3开始的区域
    _2024.getRange("A3").copyFrom(selectedSheet.getRange("B19:N19"), ExcelScript.RangeCopyType.values, false, false);
    // 设置2024工作表N1单元格公式
    _2024.getRange("N1").setFormulaLocal("=C3+1");
    // 将2024工作表N1的值复制到活动工作表D19
    selectedSheet.getRange("D19").copyFrom(_2024.getRange("N1"), ExcelScript.RangeCopyType.values, false, false);
    // 重置指定单元格值为FALSE
    selectedSheet.getRange("D13").setValue("FALSE");
    selectedSheet.getRange("D11").setValue("FALSE");
    selectedSheet.getRange("D7").setValue("FALSE");
    selectedSheet.getRange("G7").setValue("FALSE");
    // 设置D9单元格公式
    selectedSheet.getRange("D9").setFormulaLocal("=C2");
    // 清空指定单元格内容
    selectedSheet.getRange("G11").clear(ExcelScript.ClearApplyTo.contents);
    selectedSheet.getRange("G9").clear(ExcelScript.ClearApplyTo.contents);
    selectedSheet.getRange("D5:G5").clear(ExcelScript.ClearApplyTo.contents);
    selectedSheet.getRange("G3").clear(ExcelScript.ClearApplyTo.contents);
    selectedSheet.getRange("D3").clear(ExcelScript.ClearApplyTo.contents);
}

关键修改说明： #

• 首先获取活动工作表的必填单元格（示例为N10，可自行修改为实际必填单元格地址）
• 通过getValue()获取单元格值，处理空值或空白字符的情况
• 如果验证不通过，调用alert()弹出提示，选中目标单元格后用return终止函数执行
• 验证通过后，才会执行原有的复制和清空逻辑

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