批量设置工作表每行边框执行极慢，有无高效一次性设置方法？

核心优化思路 #

不要逐行激活、不要逐行调用样式设置接口，所有主流办公脚本框架（包括Excel VBA、Google Apps Script、Office JS）均支持直接选中完整目标范围后一次性应用边框样式，避免单次操作重复触发工作表渲染/写入，是提升执行速度的核心。

常用场景实现示例 #

Excel VBA 实现 #

Sub 批量设置行边框()
    Dim targetRng As Range
    ' 关闭屏幕更新，避免单次操作触发实时渲染
    Application.ScreenUpdating = False
    ' 定位目标范围，示例为工作表的A1到Z23000区域，可按需调整
    Set targetRng = ThisWorkbook.Sheets("替换为你的工作表名称").Range("A1:Z23000")
    
    ' 一次性设置整个范围的外边框
    targetRng.BorderAround xlContinuous, xlThin
    ' 一次性设置所有行之间的内横向边框（和示例效果一致）
    targetRng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
    targetRng.Borders(xlInsideHorizontal).Weight = xlThin
    ' 如需列之间的纵向边框可新增以下配置
    ' targetRng.Borders(xlInsideVertical).LineStyle = xlContinuous
    ' targetRng.Borders(xlInsideVertical).Weight = xlThin
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

Google Apps Script 实现 #

function batchSetRowBorders() {
  const sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('替换为你的工作表名称');
  // 定义目标范围参数：起始行号、起始列号、总行数、总列数，示例为1行1列开始的23000行26列（A-Z列）
  const targetRange = sheet.getRange(1, 1, 23000, 26);
  // 一次性应用边框：参数顺序为上边框、左边框、下边框、右边框、内横向边框、内纵向边框
  // 第五个参数设为true即启用所有行之间的统一横向边框
  targetRange.setBorder(true, true, true, true, true, false, null, SpreadsheetApp.BorderStyle.SOLID_THIN);
}

效果说明 #

原逐行设置的方式会触发23000次工作表写入/渲染操作，而批量设置仅需1次API调用，执行速度可提升数十至上百倍，23000行的边框设置可在数秒内完成。

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