2020年2月14日
成绩表
摘要： Sub test()Dim i As IntegerDim j As Integer For j = 1 To Sheets.Count For i = 100 To 2 Step -1 If Sheets(j).Range("e" & i) = "男" Then Sheets(j).Range(" 阅读全文
posted @ 2020-02-14 22:51 星翊 阅读(250) 评论(0) 推荐(0) 编辑