ExcelVBA字典用法之按列拆分工作表题
VBA字典基本知识
====字典绑定===
Sub 前期绑定()
Dim dic As New Dictionary
End Sub
sub 后期绑定()...【问题】一个级的成绩,我想按班别拆分为各个班的成绩各一个工作表
Sub 字典拆分()
Dim active_sht As Worksheet, rng As Range
Set dic...endRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算最后一个工作表的非空行号...endCol = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByColumns, xlPrevious).Column '计算最后一个工作表的非空列号...' MsgBox "行:" & endRow & Chr(10) & "列:" & endCol 'Debug.Print
arr = .Range(.Cells(1,