XWL1992的专栏

Sub ScoreWithClass() '把成绩表按班级分到各个工作表中 Dim i As Long, bj As String, rng As Range i = 2 bj = Cells(i, "B").Value MsgBox (bj) Do While bj <> "" '将分表中A列第一个空单元格赋给rng

Sub ShtAdd() '根据班级新建不同的工作表 Dim i As Integer, sht As Worksheet Dim j As Integer Dim have As Boolean i = 2 '第一条记录的行号为2 Set sht = Worksheets("成绩表") Do While sht.Cell

说明：各个班级花名册excel工作簿，一个余额汇总工作簿，在余额汇总工作簿中有多个表，每个表代表一个班级中每个学生基本信息和余额情况；为了检测班级花名册中的所有学生在余额统计表中是否都有对应的基本信息和余额统计情况，即班级花名册中的所有学生是否在余额统计表中都存在；

分类汇总VBA源代码，可手动设置分类项，并将结果按分类项（班级）新建表格。

'按班新建表Function NewTableByColumn() On Error Resume Next Dim tableName As String, colIndex As String '分类所在列 Dim startRowNumber As Integer '开始行 startRowNumber = 2: colIndex = "G" D

'表格汇总到总表Sub 表格汇总() Dim sht As Worksheet For Each sht In Sheets If sht.Name &lt;&gt; ActiveSheet.Name Then '如果工作表A列非空 If WorksheetFunction.CountA(sht.[a:q]) &gt...

添加库引用      Microsoft Scripting Runtime定义变量        dim dic as Dictionary        set dic = CreateObject("scripting.dictionary")Sub 统计林权证() On Error Resume Next Dim huZhu As String Dim yb As ...