R语言如何将dataframe筛选的特定行高亮写回Excel工作表

完全可以实现，最简便的方案是使用openxlsx包操作，不需要依赖Java或其他外部办公软件，能在保留原Excel所有内容、原有格式的基础上，仅给指定行添加高亮样式。

实现步骤 #

• 第一步：安装并加载依赖包

# 首次使用先安装
install.packages("openxlsx")
library(openxlsx)

• 第二步：读取数据并定位目标行
  注意不要在读取后对原始数据做排序、增删行操作，避免行号对应错位：

# 读取原Excel数据为dataframe
raw_df <- read.xlsx("车辆记录.xlsx", sheet = 1)
# 按规则筛选目标行
target_df <- raw_df[raw_df$Mileage > 30000, ]
# 计算目标行在原Excel中的实际行号：表头占第1行，因此数据行偏移+1
target_excel_rows <- as.integer(rownames(target_df)) + 1

如果读取后对数据做过排序、过滤重置行号的操作，可以在最开始读入数据时就给原始数据加固定行号标记，避免错位：

raw_df <- read.xlsx("车辆记录.xlsx", sheet = 1)
# 提前绑定Excel实际行号，表头在第1行，数据从第2行开始
raw_df$source_row <- 2:(nrow(raw_df) + 1)
# 后续无论怎么筛选排序，直接取source_row列就是准确的Excel行号
target_excel_rows <- target_df$source_row

• 第三步：定义高亮样式，给目标行加格式

# 定义高亮样式：示例为黄色背景填充，可自行修改fgFill色值调整颜色
highlight_fill <- createStyle(fgFill = "#FFFF00")

# 加载原有Excel工作簿对象，不会破坏原有内容和格式
wb <- loadWorkbook("车辆记录.xlsx")

# 给目标行添加样式：cols参数指定要高亮的列，1:3对应Car、Year、Mileage三列
addStyle(
  wb = wb,
  sheet = 1,
  style = highlight_fill,
  rows = target_excel_rows,
  cols = 1:3,
  gridExpand = TRUE
)

# 保存文件，建议先存为新文件验证效果，确认无误后再覆盖原文件
saveWorkbook(wb, "车辆记录_高亮结果.xlsx", overwrite = TRUE)

注意事项 #

• 不要直接用write.xlsx()将筛选后的dataframe覆写原文件，该操作会清空原工作表所有内容和格式，仅保留写入的dataframe数据。
• 如果需要高亮整行而非仅数据列，将cols参数修改为对应总列数即可。
• 除了背景填充，createStyle()还支持自定义字体颜色、加粗、边框等格式，可根据需求调整样式参数。

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