如何将指定VBA宏转换为Office Script脚本？

功能说明 #

对应原VBA宏的逻辑：复制Sheet1中A1:G50区域的值和列宽，追加到Sheet2的下一个可用空白行。

转换后的Office Script代码 #

function main(workbook: ExcelScript.Workbook) {
    // 获取目标工作表
    const sheet1 = workbook.getWorksheet("Sheet1");
    const sheet2 = workbook.getWorksheet("Sheet2");
    if (!sheet1 || !sheet2) {
        throw new Error("Sheet1或Sheet2不存在，请检查工作表名称");
    }

    // 定义要复制的源区域
    const sourceRange = sheet1.getRange("A1:G50");
    
    // 计算Sheet2的下一个空白行起始位置
    const lastUsedRow = sheet2.getRange("A:A").getLastCell().getRowIndex() + 1;
    const targetRange = sheet2.getRangeByIndexes(
        lastUsedRow, 
        0, 
        sourceRange.getRowCount(), 
        sourceRange.getColumnCount()
    );

    // 复制列宽到Sheet2对应列
    const columnWidths = sourceRange.getFormat().getColumnWidths();
    columnWidths.forEach((width, colIndex) => {
        sheet2.getColumn(colIndex).setColumnWidth(width);
    });

    // 复制区域值到目标位置
    targetRange.setValues(sourceRange.getValues());
}

关键逻辑解释 #

• 工作表获取：通过getWorksheet定位Sheet1和Sheet2，增加存在性判断避免运行报错
• 目标行计算：通过A列最后一个有数据的单元格行号+1，确定Sheet2的下一个空白行起始位置
• 列宽复制：批量获取源区域的列宽数组，循环设置Sheet2对应列的宽度，比逐列操作更高效
• 值复制：直接通过setValues赋值，替代VBA的粘贴操作，执行效率更高

使用步骤 #

1. 打开Excel网页版（或Office 365桌面版）
2. 点击顶部菜单栏的「自动化」>「新建脚本」
3. 将默认代码替换为上述脚本，保存后点击「运行」即可

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