批量转换为万元

hmy16888

请教大佬，以下代码哪里出错了？请指正，谢谢！


function 转换为万元() {
    // 获取当前活动的工作表
    let sheet = Workbook.ActiveSheet;

    // 定义目标范围
    let range = sheet.Range("A1:G10");

    // 遍历范围内的每个单元格
    for (let row = 1; row <= range.Rows.Count; row++) {
        for (let col = 1; col <= range.Columns.Count; col++) {
            let cell = range.Cells.Item(row, col); // 使用 .Item 获取单元格
            if (!isNaN(cell.Value) && cell.Value !== null) {
                cell.Value = cell.Value / 10000; // 转换为万元
            }
        }
    }
}

Doris丶煉獄Hà

直接写单元格多了会卡,用数组吧:
function 转换为万元() {
    let arr = ActiveSheet.Range("A1:G10").Value2;
    for (let row = 0; row < arr.length; row++) {
        for (let col = 0; col < arr[0].length; col++) {
            if (arr[row][col]>0) {
                arr[row][col] = arr[row][col] / 10000; // 转换为万元
            }
        }
    }
    ActiveSheet.Range("A1:G10").Value2 = arr
    ActiveSheet.Range("A1:G10").NumberFormatLocal = "G/通用格式 万元";
}