God_68的博客

目的：在指定条件下，将一个工作薄中的某些工作表数据记录清空代码实现：Sub 清除记录()Dim sht As WorksheetFor Each sht In WorksheetsIf sht.Name <> "成绩表" Then '成绩表'中是保存元数据记录的工作表标签名称sht.Range("A2:D65536").ClearContents '清除各分表中的数据记录End IfNextEnd Sub结果：...

目的：将汇总数据分类代码实现：Sub 分类() '将成绩表根据班级分到各个工作表中Dim i As Long, bj As String, rng As Rangei = 3bj = Cells(i, "B").ValueDo While bj <> "" '定义循环条件'将分表中A列第一个单元格赋给rngSet rng = Worksheets(Cells(i, "B").Value).Range("A65536").End(xlUp).Offset(1, 0