代码需要根据自己的实际场景更改文件名称等部分

options(stringsAsFactors=FALSE)
 
library(xlsx)
 
setwd("C:\\Users\\wanghong\\Desktop")
 
MDold <- read.xlsx2("选课学生名单_20201015.xls", sheetIndex=1, startRow=1, header=FALSE)
 
head(MDold[[1]])
 
MDold <- read.xlsx2("选课学生名单_20201015.xls", sheetIndex=1, startRow=3)
 
names(MDold)
 
MDnew <- read.xlsx2("选课学生名单_20201021.xls", sheetIndex=1, startRow=3)
 
MDnew$学号[!(MDnew$学号 %in% MDold$学号)]
 
MDold$学号[!(MDold$学号 %in% MDnew$学号)]

本网页已被访问次数(Times visited)：1484； 最后编辑时间(Last modified)： 2025/09/12 19:10