请求将Excel VBA拆分工作表脚本转换为Google Apps Script

转换后的Google Apps Script代码 #

function splitSheetIntoMultipleSheetsBasedOnColumn() {
  const ss = SpreadsheetApp.getActiveSpreadsheet();
  const sourceSheet = ss.getActiveSheet();
  const lastRow = sourceSheet.getLastRow();
  const lastCol = sourceSheet.getLastColumn();
  
  // 获取包含表头的所有数据
  const data = sourceSheet.getRange(1, 1, lastRow, lastCol).getValues();
  const header = data[0];
  
  // 用Map存储A列唯一值及对应数据行
  const uniqueValues = new Map();
  // 从第二行开始遍历（跳过表头）
  for (let i = 1; i < data.length; i++) {
    const columnValue = data[i][0].toString();
    if (!uniqueValues.has(columnValue)) {
      uniqueValues.set(columnValue, [header]);
    }
    uniqueValues.get(columnValue).push(data[i]);
  }
  
  // 遍历唯一值，创建工作表并写入数据
  uniqueValues.forEach((rows, sheetName) => {
    let targetSheet;
    try {
      // 尝试获取同名工作表，不存在则创建
      targetSheet = ss.getSheetByName(sheetName);
      if (!targetSheet) {
        targetSheet = ss.insertSheet(sheetName, ss.getNumSheets());
      } else {
        // 若工作表已存在，清空原有内容
        targetSheet.clearContents();
      }
    } catch (e) {
      SpreadsheetApp.getUi().alert(`无法创建/使用工作表 "${sheetName}"：名称包含非法字符或超出限制`);
      return;
    }
    
    // 批量写入数据
    targetSheet.getRange(1, 1, rows.length, rows[0].length).setValues(rows);
    // 自动调整A-F列宽度
    targetSheet.autoResizeColumns(1, 6);
  });
}

转换关键差异说明 #

• 对象模型替换：Excel VBA的ActiveSheet对应GAS的SpreadsheetApp.getActiveSpreadsheet().getActiveSheet()，Worksheet对应GAS的Sheet
• 唯一值存储：VBA的Scripting.Dictionary替换为GAS的Map，语法更简洁且适配JS环境
• 数据处理逻辑：GAS采用批量读写（getValues()/setValues()）替代逐行复制粘贴，大幅提升执行效率
• 工作表管理：新增同名工作表判断，避免重复创建报错；同时处理非法工作表名称的异常情况
• 格式调整：VBA的AutoFit对应GAS的autoResizeColumns()，支持指定列范围

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