分類彙總（按班級，可手動設定分類項）

分類彙總vba源**，可手動設定分類項，並將結果按分類項（班級）新建**。

'按班級新建表

function newtablebycolumn()
on error resume next
dim tablename as string, colindex as string '分類所在列
dim startrownumber  as integer  '開始行
startrownumber = 2: colindex = "a"
dim sh as worksheet: set sh = thisworkbook.sheets(1)
dim rng as range, rang as range '班級區域
set rang = null: set rng = null
for r = startrownumber to sh.usedrange.rows.count
tablename = sh.cells(r, colindex) '
if sh.cells(r, colindex) = sh.cells(r - 1, colindex) then '屬於同乙個班級
set rng = sh.cells(r, colindex).entirerow
set rang = union(rang, rng)
with rang
.copy destination:=thisworkbook.worksheets(worksheets.count).[a2].resize(.rows.count, .columns.count)
end with
if not istableexist(tablename) then
addtable (tablename)
end if
set rang = null: set rang = sh.cells(r, colindex).entirerow
end if
next r
with rang    '最後乙個班級，複製到對應的班級表中
.copy destination:=thisworkbook.worksheets(worksheets.count).[a2].resize(.rows.count, .columns.count)
end with
end function
function addtable(tablename as string)
dim sh as worksheet
set sh = thisworkbook.sheets(1)
worksheets.add after:=worksheets(worksheets.count)
dim sht as worksheet
set sht = thisworkbook.sheets.item(worksheets.count)
with sht
.name = tablename
sh.rows(1).copy destination:=.[a1].resize(1, sh.usedrange.columns.count)
end with
end function
function istableexist(tablename as string) as boolean
on error resume next
if sheets(tablename) is nothing then
istableexist = false
else
istableexist = true
end if
end function

分類彙總後新建的表：

按型別分類

更新日期 2004 09 20 選擇查詢方法 按名稱分類 按型別分類 所有分類 web服務 網路作業系統 桌面資料庫 多 系統管理 核心安全 系統服務 開發工具 web服務 apache analog jspcart php nuke tomcat tiki xaraya 網路 big sister...

按測試型別分類

功能測試 效能測試 相容性測試 部署測試 易用性測試 文件測試 本地化測試 安全測試 無障礙測試 可靠性測試 功能測試 1 根據產品特性 操作描述和使用者方案，測試產品的特性和可操作行為以確定它們滿足設計需求。2 針對的問題 功能錯誤或遺漏 介面問題 效能錯誤 資料及訪問錯誤 初始化及終止錯誤。3 ...

按班級提取並生成到指定資料夾

import os import pandas as pd pd.set option display.max columns none 顯示所有列 pd.set option display.max rows none 顯示所有行 file new r c zm 大三下 班級事務 所有班級 準備生...