没问题，我来给你一套完整的解决方案，用openxlsx包就能完美处理这个需求——既可以基于data.frame做所有修改和子集化，又能完整保留超链接：

步骤1：安装并加载依赖包 #

我们用openxlsx来读取/写入Excel超链接，它不需要Java环境，用起来很轻便：

install.packages("openxlsx")
library(openxlsx)

步骤2：读取Excel并提取超链接 #

首先读取工作簿，同时把数据转成data.frame，然后单独提取超链接并和data.frame关联，这样后续操作就能带着超链接一起走：

# 读取你的Excel文件
wb <- loadWorkbook("your_input_file.xlsx")
# 读取工作表为data.frame（假设是第1个工作表）
df <- read.xlsx(wb, sheet = 1)

# 获取对应的工作表对象
target_sheet <- wb$sheets[[1]]

# 假设你的超链接显示文本在名为"Link_Text"的列里，先找到该列的索引
link_col_idx <- which(names(df) == "Link_Text")

# 提取该列所有行的超链接（从第2行开始，因为第1行是表头）
hyperlinks <- lapply(2:(nrow(df)+1), function(row_num) {
  link_obj <- getHyperlink(target_sheet, row = row_num, col = link_col_idx)
  # 如果没有超链接就返回NA，否则返回实际链接地址
  if (is.null(link_obj)) NA else link_obj$url
})

# 把超链接转换成向量，加到data.frame里
df$hyperlink_url <- unlist(hyperlinks)

步骤3：基于data.frame完成修改和子集化 #

这一步就完全按照你的需求自由操作了，筛选行、修改列值、新增计算列都可以——超链接列会跟着data.frame一起被处理：

# 示例：筛选出某列值符合条件的行
filtered_df <- df[df$Priority == "High", ]

# 示例：修改超链接的显示文本
filtered_df$Link_Text <- paste("[高优先级]", filtered_df$Link_Text)

步骤4：写入新Excel并恢复超链接 #

现在把处理好的data.frame写回Excel，同时用makeHyperlinkString生成超链接公式，再用writeFormula写入对应位置：

# 创建新工作簿
new_wb <- createWorkbook()
addWorksheet(new_wb, "Processed_Data")

# 先写入除了超链接地址列之外的所有数据
writeData(new_wb, sheet = 1, filtered_df[, !names(filtered_df) == "hyperlink_url"])

# 遍历每一行，给对应的列设置超链接公式
for (row in 1:nrow(filtered_df)) {
  # 跳过没有超链接的行
  if (is.na(filtered_df$hyperlink_url[row])) next
  
  # 生成超链接公式（显示文本+实际地址）
  link_formula <- makeHyperlinkString(
    url = filtered_df$hyperlink_url[row],
    name = filtered_df$Link_Text[row]
  )
  
  # 写入公式到对应位置（注意行号要+1，因为表头占了第1行）
  writeFormula(new_wb, sheet = 1, x = link_formula, startRow = row + 1, startCol = link_col_idx)
}

# 保存最终文件
saveWorkbook(new_wb, "your_output_file.xlsx", overwrite = TRUE)

关键注意点 #

• 如果你的Excel里有多列超链接，只需要重复步骤2中的提取逻辑，给每一列都添加对应的hyperlink_url列即可
• 确保link_col_idx的索引正确，对应你实际存放超链接显示文本的列
• 处理空超链接时用NA占位，避免写入公式时出错

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