public sub 彙總表轉資訊表()'日期'作者 next
'qq 84857038
dim wb, sht, msht, newsht, rng
set sht = wb.worksheets("sheet2")
set msht = wb.worksheets("sheet3")
with sht
endrow = .cells(.cells.rows.count, 1).end(xlup).row
if endrow <= 1 then exit sub
set rng = .range("a3:o" & endrow)
arr = rng.value
end with
for i = lbound(arr) to ubound(arr)
msht.copy after:=wb.worksheets(wb.worksheets.count)
set newsht = wb.worksheets(wb.worksheets.count)
with newsht
newname = arr(i, 3) '意思是以第三列的姓名來給新**命名
wb.worksheets(newname).delete
.name = newname
.range("b2").value = arr(i, 3) '意思是小表b2單元格的內容=大表的第3列的姓名，以此類推
'以此類推
end with
next i
set wb = nothing
set sht = nothing
set msht = nothing
set newsht = nothing
set rng = nothing
end sub
排序彙總表
非計算機專業出身的我，演算法0基礎，演算法太欠缺了，最近一段時間在惡補演算法。好了，下面把自己做的排序演算法彙總表帖出來，與大家共享。分類排序演算法 時間複雜度 空間複雜度 穩定性備註 插入排序 直接插入排序 o n 2 o 1 穩定排序 鍊錶插入排序 o n 2 o n 穩定排序 希爾排序 o n...
mysql 彙總表 PHP Mysql函式彙總表
mysql affected rows 取得前一次 mysql 操作所影響的記錄行數mysql change user 改變活動連線中登入的使用者mysql client encoding 返回字符集的名稱 mysql close 關閉 mysql 連線 mysql connect 開啟乙個到 my...
報表查詢 收費彙總表
收費彙總表，需要考慮的是如何避免重複資料的問題 報表查詢sql select from select rownum asid,tt.nvl sf.jfje,0 jfje,取收費表的交費金額，其他暫不考慮 trunc qfje1 nvl sf.count,1 1 nvl sf.jfje,0 as ys...