R可以识别Excel文件是否有注释单元格吗

R
# 导入所需的包
library(readxl)
library(openxlsx)
# 读取Excel文件
excel_file <- read_excel("your_file.xlsx")
# 获取所有工作表
sheets <- excel_sheets(excel_file)
# 遍历所有工作表
for (sheet in sheets) {
  # 读取工作表数据
  sheet_data <- read_excel(excel_file, sheet = sheet)
  
  # 获取工作表的行数和列数
  num_rows <- nrow(sheet_data)
  num_cols <- ncol(sheet_data)
  
  # 遍历所有单元格
  for (i in 1:num_rows) {
    for (j in 1:num_cols) {
      # 获取单元格的注释内容
      comment <- getComment(sheet_data, i, j)
      
      # 判断单元格是否有注释
      if (!is.null(comment)) {
        # 输出包含注释的单元格位置和注释内容
        cat("工作表:", sheet, "，单元格:", i, j, "，注释:", comment, "\n")
      }
    }
  }
}