1樓：
Sub DateCollect()
[a1].Resize(1, 7) = Array("序號", "部門", "經辦人", "個人支出合計", "起始序號", "截止序號", "筆數")
Dim Ar, Dic, i&, K&, BrAr = Sheet1.UsedRangeSet Dic = CreateObject("scripting.dictionary"ReDim Br(1 To UBound(Ar), 1 To 7For i = 2 To UBound(ArIf Dic.
exists(Ar(i, 3)) ThenDic(Ar(i, 3)) = Ar(i, 4) + Dic(Ar(i, 3Br(K, 6) = Ar(i, 1ElseDic(Ar(i, 3)) = Ar(i, 4K = K + 1Br(K, 1) = KBr(K, 2) = Ar(i, 2Br(K, 3) = Ar(i, 3Br(K, 5) = Ar(i, 1Br(K, 6) = Ar(i, 1End IfBr(K, 4) = Dic(Ar(i, 3Br(K, 7) = Br(K, 6) - Br(K, 5) + 1
Next i
Sheet2.Range("a2").Resize(K, 7) = Br
Sheet2.Columns("a:g").AutoFitEnd Sub
Sub Clear()
Sheet2.Cells.Clear
End Sub
北安一中？
第一,這個學校完全不值得去,管理體制僵化,硬體設施落後,課程安排極不合理。第二，最為所在縣級市唯一一所重點中學，所以沒什麼選擇的意義，不是因為學校有名而選擇，而是因為沒有其它選項。第三，學校位於乙個極其邊緣的縣級市，師資力量先不說，資訊閉塞，環境惡劣。第四，如果有離開那裡選擇其他地區高中的機會，請不...
師大一中好點還是錦城一中好點
不是本校的的不要胡說八道，對師大一中不是很了解。錦一的家長沒多少關注網上的問題而已，看到了這些問題肯定都會說兩句。憑良心說，錦一還是不錯的，畢竟建校不久，目前還沒達到第一梯隊學校的水平。不過看得出來，大部分老師還是負責，大部分同學也非常努力，用心鑽研學習。要衝刺中考高考的同學也很多，班上學風比較好，...
如何評價靜海一中 以及靜海一中的老師邊婷婷？
我枯了 別的老師，早上起來都研究研究早上吃什麼，或者看看哪個口紅色號好看。我呢，我凌晨四點早班的起來給你們改卷子！就說同學們，你們睡得著覺嗎，啊？我是睡不著啊，我都替你們著急。最後還有一句經典的 我心裡倍兒踏實！ 她簡直是我這十二年來最好的老師。她很勤奮，每天來的都很早，幾乎過著朝四晚二的生活，每天...