如何在R中使用openxlsx将excel中的列自动调整为多张工作表

install.packages("openxlsx")

library(openxlsx)

data <- read.xlsx("path/to/excel/file.xlsx")

num_cols <- ncol(data)

cols_per_sheet <- 10

num_sheets <- ceiling(num_cols / cols_per_sheet)

wb <- createWorkbook()

for (i in 1:num_sheets) {
  sheet_name <- paste0("Sheet", i)
  sheet <- createSheet(wb, sheetName = sheet_name)
  
  start_col <- (i - 1) * cols_per_sheet + 1
  end_col <- min(i * cols_per_sheet, num_cols)
  
  data_subset <- data[, start_col:end_col]
  
  writeData(sheet, data_subset)
}

saveWorkbook(wb, "path/to/output/file.xlsx", overwrite = TRUE)