将Excel VBA单元格着色与行删除宏转换为TypeScript实现

以下是对应你需求的TypeScript实现代码，可直接在Excel的Automate选项卡中创建脚本运行：

function main(workbook: ExcelScript.Workbook) {
    const sheet = workbook.getActiveWorksheet();
    const lastRow = sheet.getRange("A:A").getLastCell().getRowIndex() + 1; // 行号从1开始计数
    const startRow = 4; // 表头位于1-3行，数据从第4行开始

    // 定义颜色的十六进制值（对应原VBA的RGB）
    const orangeFill = "#F79646"; // RGB(247, 150, 70)
    const greenFill = "#92D050"; // RGB(146, 208, 80)
    const noFill = "#FFFFFF00"; // 表示无填充的默认值

    // 功能2：为T列（第20列）中当月日期的整行设置橙色填充
    const dateColumnRange = sheet.getRange(`T${startRow}:T${lastRow}`);
    const monthCondition = dateColumnRange.addConditionalFormat(ExcelScript.ConditionalFormatType.timePeriod);
    monthCondition.getTimePeriod().setRule({ timePeriod: ExcelScript.TimePeriod.thisMonth });
    monthCondition.getFormat().getFill().setColor(orangeFill);

    // 倒序遍历行（避免删除行后索引错乱）
    for (let i = lastRow; i >= startRow; i--) {
        const currentRow = sheet.getRow(i);
        const col14Cell = currentRow.getCell(13); // 第14列对应索引13（TypeScript索引从0开始）
        const col20Cell = currentRow.getCell(19); // 第20列对应索引19

        // 获取单元格填充颜色
        const col20Color = col20Cell.getFormat().getFill().getColor();
        const col14Color = col14Cell.getFormat().getFill().getColor();

        // 功能1：如果T列单元格已设为橙色，整行统一设为橙色
        if (col20Color === orangeFill) {
            currentRow.getFormat().getFill().setColor(orangeFill);
        }

        // 功能1：N列（第14列）值≥1且无填充时，整行设为绿色
        const col14Value = col14Cell.getValue();
        if (typeof col14Value === "number" && col14Value >= 1 && col14Color === noFill) {
            currentRow.getFormat().getFill().setColor(greenFill);
        }

        // 功能3：删除未满足任一着色条件的行（整行仍为无填充状态）
        const rowFillColor = currentRow.getFormat().getFill().getColor();
        if (rowFillColor === noFill) {
            currentRow.delete(ExcelScript.DeleteShiftDirection.up);
        }
    }
}

关键实现说明 #

1. 与VBA的核心差异 #

• TypeScript中列/行索引从0开始（VBA从1开始），比如第14列对应索引13
• 颜色使用十六进制字符串表示，而非RGB函数
• 删除行必须倒序遍历，否则会因行删除导致后续索引错位（VBA中正序遍历会漏处理行，此处直接修正为更可靠的倒序逻辑）
• 依赖ExcelScript.Workbook入口对象，替代VBA的ActiveSheet/Sheet1

2. 对应原功能的逐点实现 #

• 当月日期行着色：通过addConditionalFormat添加时间周期规则，直接绑定填充颜色
• 指定列值≥1行着色：先判断单元格值类型与大小，再检查填充状态，满足条件则设置整行颜色
• 删除未满足条件的行：检查整行填充是否仍为无填充状态，是则删除该行并向上移位

注意事项 #

• 确保报表表头确实在1-3行，startRow参数需与实际数据起始行匹配
• 若T列日期格式不规范，条件格式可能无法识别，需保证单元格为标准日期类型

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