我看了你这段代码，核心问题出在两个地方：一是普通数据框表格的处理逻辑有疏漏，二是expss生成的交叉表是带多层表头的特殊对象，直接用openxlsx::writeData无法保留它的格式（包括你说的标签行）。下面给你修正后的完整方案：

第一步：修正普通数据框表格的处理逻辑 #

你之前的tbl1生成过程有些冗余，而且最后合并后的结构可能不符合预期，我们先简化这部分：

library(expss)
library(dplyr)
library(purrr)
library(openxlsx)

# 示例数据
df <- mtcars[1:7,]
df_list <- list(
  subset(df, vs==1),
  subset(df, am==1),
  subset(df, gear==3)
)
banner <- c("T1","T2","T3")
names(df_list) <- banner

# 给每个表格添加SampleID列，统一列名，并且在每个表格后加空行分隔
table_list1 <- map2(df_list, banner, function(tbl, id) {
  tbl %>%
    mutate(SampleID = id) %>%
    set_names(c("name","TT1","TT2", "TT3","TT4","TT5","TT6","TT7","TT8","TT9","TT10")) %>%
    add_row(.before = FALSE) # 每个表格末尾加空行
})

# 合并成单个数据框
tbl1 <- do.call(rbind, table_list1)

第二步：正确处理expss交叉表的格式 #

expss的交叉表（比如tbl2）是带有多层表头的etable对象，直接用writeData会丢失表头结构。我们需要先把它转换成适合Excel的格式，用expss::as_wide_table可以保留所有标签和表头层级：

# 生成expss交叉表
tbl2 <- mtcars %>% 
  cross_cpct(
    cell_vars = list(cyl, gear),
    col_vars = list(total(), am, vs)
  ) %>% 
  set_caption("Table 1") %>%
  as_wide_table() # 转换成适合Excel的宽表格式，保留多层表头

第三步：动态计算起始行，逐行写入Excel #

现在我们有了处理好的tbl1和tbl2，需要计算每个表格的起始行，注意要给每个表格之间留空行分隔，同时处理expss表格的表头：

# 整理所有要写入的表格列表
tbls <- list(tbl1, tbl2)

# 计算每个表格的起始行：第一个表格从第1行开始，后续表格的起始行 = 前一个表格的行数 + 前一个起始行 + 2（留两行空行分隔）
startRows <- c(1, cumsum(sapply(tbls[-length(tbls)], nrow) + 2) + 1)

# 创建工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "sheet1")

# 逐个写入表格
walk2(tbls, startRows, function(tbl, start_row) {
  # 如果是expss转换后的宽表（有多层表头），用writeDataTable保留格式；普通数据框用writeData
  if ("etable_wide" %in% class(tbl)) {
    writeDataTable(wb, "sheet1", x = tbl, startRow = start_row, withFilter = FALSE)
  } else {
    writeData(wb, "sheet1", x = tbl, startRow = start_row)
  }
})

# 保存工作簿
saveWorkbook(wb, "test_final.xlsx", overwrite = TRUE)

关键说明 #

• 对于普通数据框表格：我们给每个表格末尾添加空行，合并后写入，保证不同人口统计特征的表格之间有分隔。
• 对于expss交叉表：as_wide_table()会把多层表头转换成Excel可以识别的合并单元格格式，用writeDataTable可以完美保留这些格式，包括你需要的Total、Transmission、engine标签行。
• 起始行计算：通过cumsum动态计算每个表格的起始位置，确保表格不会重叠，同时留空行提升可读性。

你运行这段代码后，生成的Excel文件会正确显示所有表格内容，expss的交叉表也会保留完整的表头格式。

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