填充空行为上一单元格内容

智能办公
1

填充空行（先取消合并的单元格）

工具选项卡下，选择开发工具，切换到JS环境下，ALT + F11下粘贴下面代码

function FillEmptyCells() {
    let targetSheet = ActiveSheet;
    let lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row; // 获取 A 列最后一行
    let lastCol = 8; // A-H 列，共 8 列

    for (let col = 1; col <= lastCol; col++) { // 遍历 A-H 列
        for (let row = 2; row <= lastRow; row++) { // 从第二行开始
            let currentCell = targetSheet.Cells(row, col);
            if (currentCell.Value2 == null || currentCell.Value2 === "") {
                let aboveCell = targetSheet.Cells(row - 1, col);
                currentCell.Value2 = aboveCell.Value2; // 填充上一行内容
            }
        }
    }
}