AppleScript实现Excel跨工作表复制插入及单元格选择对话框开发

以下是完整的实现代码，包含插入逻辑和单元格选择对话框功能：

-- 显示单元格选择提示对话框
display dialog "请在工作表3中选择插入起始单元格（内容将插入到该单元格所在行之前）" buttons {"确定"} default button 1

tell application "Microsoft Excel"
    -- 获取用户选中的目标单元格（若无需交互，可直接设置targetRow为30）
    set targetCell to selection
    set targetSheet to sheet of targetCell
    set targetRow to row index of targetCell
    
    -- 切换到工作表4（当前激活工作表为3，索引a+1即为4）
    set a to entry index of active sheet of active workbook
    activate object worksheet (a + 1)
    
    tell active sheet
        -- 定义源范围：第30-40行的已使用列
        set rowRange to range "30:40"
        set lastColLetter to my CalcColumnLetter(count of columns of used range)
        set colRange to range ("A:" & lastColLetter)
        set srcRange to intersect range1 rowRange range2 colRange
        copy range srcRange
    end tell
    
    -- 切换回目标工作表（工作表3）
    activate object targetSheet
    
    -- 选中目标行并插入复制内容，原有行下移
    set targetRowRange to range (targetRow & ":" & targetRow)
    insert into range targetRowRange shift down
end tell

-- 辅助函数：将列数转换为Excel列字母
on CalcColumnLetter(colNum)
    set colLetter to ""
    repeat while colNum > 0
        set remainder to (colNum - 1) mod 26
        set colLetter to character (remainder + 65) & colLetter
        set colNum to (colNum - 1) div 26
    end repeat
    return colLetter
end CalcColumnLetter

关键逻辑说明 #

• 单元格选择交互：开头的对话框引导用户手动选择插入位置，后续通过selection获取选中单元格的行号作为插入点。如果不需要交互，直接把targetRow赋值为30即可固定插入到第30行之前。
• 插入核心逻辑：切换回工作表3后，选中目标行的整行范围，调用insert into range ... shift down指令，将复制的内容插入到该行前方，原有行会自动向下偏移，完全满足需求。
• 源范围优化：保留原代码的列字母转换函数，确保只复制工作表4第30-40行中实际有内容的列，避免复制无用的空白列。

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