解决readxl读取空白Excel表生成空tibble的替代方案

首先，你的循环替换没生效是因为列表元素访问错误：x[i]取的是列表的子列表，而非单个tibble元素，应该用x[[i]]来访问和赋值。另外，判断空tibble的条件也需要调整，nrow(x[i])会返回NULL，正确判断要检查nrow(x[[i]]) == 0。

修正后的替换循环 #

n <- rep(NA, 177)
nt <- tibble::tibble(col1 = n, col2 = n) # 建议和正常工作表的列名保持一致
for (i in 1:length(x)) { 
  # 用length(x)替代固定96，适配工作表数量变化
  if (is.null(nrow(x[[i]])) || nrow(x[[i]]) == 0) {
    x[[i]] <- nt
  }
}

更高效的写法：读取时直接处理 #

可以把空表判断逻辑整合到lapply里，省去后续循环步骤：

uncleparse <- function(filename, destfile){
  library(readxl)
  library(tibble)
  library(writexl)
  library(dplyr) # 用于合并表格
  
  sheets <- readxl::excel_sheets(filename)
  # 预设全NA的tibble，列名与正常工作表对齐
  empty_tbl <- tibble(col1 = rep(NA, 177), col2 = rep(NA, 177))
  
  x <- lapply(sheets, function(X) {
    tbl <- readxl::read_excel(filename, sheet = X, range = "A3:B180")
    # 为空表则返回预设全NA表，否则返回读取结果
    if (nrow(tbl) == 0) empty_tbl else tbl
  })
  
  # 给列表命名，对应工作表名称
  names(x) <- sheets
  
  # 合并为单个表格，保留工作表名称作为溯源列
  combined_tbl <- dplyr::bind_rows(x, .id = "sheet_name")
  
  # 写入目标Excel文件
  writexl::write_xlsx(combined_tbl, destfile)
}

关键说明 #

• R列表操作中，[[i]]用于访问单个元素，[i]返回包含单个元素的子列表，这是新手容易混淆的点。
• 合并时用bind_rows(.id = "sheet_name")，可将工作表名称作为新列保留，方便后续核对数据来源。
• 预设全NA tibble的列名要和正常工作表一致，避免合并时出现列名不匹配的报错。

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