如何用R的writeData函数向Excel空白行追加数据框？

要实现仅向指定列（3-7列）的空白行区域写入数据框，核心是先定位该列范围内的第一个完全空白行，再将其作为写入起始位置。以下是具体实现方法：

步骤1：定位目标列的第一个空白行 #

先读取工作表中3-7列的现有数据，判断每一行是否全为空：

library(openxlsx)

# 加载目标工作簿（替换为你的文件路径）
wb <- loadWorkbook("your_file.xlsx")

# 读取工作表中3-7列的数据
target_cols_data <- readWorkbook(wb, sheet = "test", cols = 3:7)

# 判断每一行是否全为空白（空白单元格读取后为NA）
is_empty_row <- apply(target_cols_data, 1, function(row) all(is.na(row)))
first_empty_row <- which(is_empty_row)[1]

# 处理工作表为空的情况（所有行都是空白）
if (is.na(first_empty_row)) {
  first_empty_row <- 1
}

步骤2：写入数据框到空白行 #

确定起始行后，调用writeData写入数据，指定起始列为3：

# 将数据框写入3-7列的第一个空白行
writeData(wb, sheet = "test", df_Report, startRow = first_empty_row, startCol = 3)

# 保存修改后的工作簿
saveWorkbook(wb, "your_file.xlsx", overwrite = TRUE)

特殊情况处理 #

如果Excel中的空白单元格包含空格（不是真正的空值），需要调整判断逻辑：

# 兼容含空格的"空白"单元格
is_empty_row <- apply(target_cols_data, 1, function(row) {
  row_char <- as.character(row)
  all(is.na(row_char) | trimws(row_char) == "")
})

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