AppleScript操作Numbers表格：相邻行值不同时插入空行求助

需求：遍历A列单元格，当某行的值与上一行不相等时，在该行上方插入空行。

原代码（无法正常运行）：

tell column "A"
    set nbr to count rows
    
    set x to 2
    repeat with r from x to nbr
        set aVal to value of cell r
        
        repeat with s from x + 1 to nbr
            set aNVal to value of cell s
            
            if aNVal is not equal to aVal then
                add row above s
                exit repeat
            end if
            
        end repeat
        
        set x to x + 1
    end repeat
end tell

问题分析 #

原代码存在两个核心问题：

1. 嵌套循环逻辑冗余混乱，重复遍历不必要的行，导致判断逻辑出错
2. 插入行后未更新总行数，且从上往下遍历会因行索引偏移导致后续检查失效

修复后的代码 #

tell application "Numbers"
    tell front document's active sheet
        tell table 1's column "A"
            set totalRows to count rows
            -- 从下往上遍历，规避插入行导致的索引偏移问题
            set currentRow to totalRows
            repeat while currentRow > 1
                set currentVal to value of cell currentRow
                set prevVal to value of cell (currentRow - 1)
                if currentVal ≠ prevVal then
                    add row above currentRow
                    set totalRows to totalRows + 1 -- 插入行后更新总行数
                end if
                set currentRow to currentRow - 1
            end repeat
        end tell
    end tell
end tell

关键修复点 #

• 从下往上遍历：插入行只会影响当前行下方的行，不会干扰还未检查的上方行索引，彻底避免偏移问题
• 简化判断逻辑：只对比当前行与上一行的值，无需嵌套循环
• 更新总行数：每次插入行后同步更新总行数，保证遍历范围准确
• 明确作用域：完善tell层级，指定具体的文档、工作表和表格，避免作用域歧义

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