R写入Excel时如何自动统计带/不带行名表格的行列数并定位插入位置

本方案基于openxlsx包实现，完全自动计算插入位置，无需手动统计行列数。

核心逻辑 #

• 提前将所有待写入表格的名称、数据、是否导出行名等参数统一配置，批量循环处理
• 维护current_row变量记录下一个内容的插入起始行，每次写完一张表自动更新
• 每张表的列范围自动根据「数据框列数+是否包含行名」计算

完整可运行代码 #

基础配置部分 #

library(openxlsx)

# 定义表头样式（和你原有逻辑匹配，可按需调整样式属性）
tableheaderStyle <- createStyle(
  textDecoration = "bold",
  border = "bottom",
  fgFill = "#f0f0f0"
)

# 待写入表格统一配置：每张表的标题、数据、是否导出行名
table_list <- list(
  list(title = "Table 1", data = tbl1, row_names = TRUE),
  list(title = "Table 2", data = tbl2, row_names = FALSE),
  list(title = "Table 3", data = tbl3, row_names = TRUE),
  list(title = "Table 4", data = tbl4, row_names = FALSE)
)

# 初始化工作簿
wb <- createWorkbook()
addWorksheet(wb, sheetName = "Sample")
# 初始插入行从第一行开始
current_row <- 1

循环自动写入逻辑 #

for (tbl_info in table_list) {
  # 提取当前表的参数
  tbl <- tbl_info$data
  tbl_title <- tbl_info$title
  use_row_names <- tbl_info$row_names
  
  # 自动计算当前表的总列数（对应你原来需要手动填的Y值）：数据列数 + 行名列（如果开启）
  col_count <- ncol(tbl) + ifelse(use_row_names, 1, 0)
  
  # 写入表标题
  writeData(wb, sheet = "Sample", x = tbl_title, startRow = current_row)
  
  # 写入表格数据
  writeData(
    wb, sheet = "Sample", x = tbl,
    colNames = TRUE, rowNames = use_row_names,
    startRow = current_row + 1,
    borders = "all"
  )
  
  # 给表头加样式：表头行是current_row + 1，列范围是1到col_count
  addStyle(
    wb, sheet = "Sample", style = tableheaderStyle,
    rows = current_row + 1, cols = 1:col_count, stack = TRUE
  )
  
  # 更新下一张表的起始行（对应你原来需要手动填的X值）：当前行 + 1行标题 +1行表头 + 数据行数 + 1行空白间隔
  current_row <- current_row + 2 + nrow(tbl) + 1
}

# 导出最终文件
saveWorkbook(wb, "多表汇总.xlsx", overwrite = TRUE)

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