Sub 读入()
Application.ScreenUpdating = False
Dim wb As Workbook
Set fso = CreateObject("scripting.filesystemobject")
Set fld = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, 0)
If fld Is Nothing Then End
fp = fld.Self.Path
Set wb = Workbooks.Open(fp & "\" & "数据表.xls", Password:="313", WriteResPassword:="313") '读入
y = wb.Sheets("数据表").[Match(1, 0 / (A:A <> ""))]
arr = wb.Sheets("数据表").Range("a1:iv" & y)
Set dc = CreateObject("scripting.dictionary")
wb.Close False
For i = 2 To UBound(arr, 2)
dc(arr(2, i)) = i
Next
Application.ScreenUpdating = True
End Sub
多条件分类汇总2.rar
(58.98 KB, 下载次数: 10)