2020-08-14

Sub 報(bào)告()
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim mb As Workbook, nb As Workbook
    Dim i As Integer, j&, n&
    Dim myfile$, mypath$
    Dim t#, l#, w#, h#
    Dim arr(1 To 62, 1 To 14)
    Dim rng As Range
    mypath = ThisWorkbook.Path & "\"
    Set mb = ThisWorkbook
    myfile = Dir(mypath & "整理后報(bào)表\" & "*xlsx")
    While myfile <> ""
        If myfile <> ThisWorkbook.Name Then
            Set nb = Workbooks.Open(mypath & "整理后報(bào)表\" & myfile)
            n = n + 1
            For i = 1 To 15
                arr(i, n) = nb.Sheets(1).Cells(i + 13, 3)
            Next
            For i = 16 To 33
                arr(i, n) = nb.Sheets(1).Cells(i + 14, 3)
            Next
            For i = 34 To 36
                arr(i, n) = nb.Sheets(1).Cells(i + 15, 3)
             Next
            For i = 37 To 50
                arr(i, n) = nb.Sheets(1).Cells(i + 28, 3)
            Next
            
            For i = 51 To 54
                arr(i, n) = nb.Sheets(1).Cells(i + 29, 3)
            Next
            For i = 55 To 61
                arr(i, n) = nb.Sheets(1).Cells(i + 30, 3)
            Next
            arr(62, n) = nb.Sheets(1).Range("c4")
            nb.Close False
            myfile = Dir
         End If
    Wend
    mb.Sheets(1).Range("b2").Resize(62, 14) = arr
    For Each rng In Sheet1.UsedRange
        If rng = 0 Then
            rng = "-"
        End If
    Next
End Sub

• 人面猴

  序言：七十年代末，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子，更是在濱河造成了極大的恐慌，老刑警劉巖帖汞，帶你破解...

  沈念sama閱讀 218,204評(píng)論 6贊 506
• 死咒

  序言：濱河連續(xù)發(fā)生了三起死亡事件，死亡現(xiàn)場(chǎng)離奇詭異，居然都是意外死亡技健，警方通過查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...

  沈念sama閱讀 93,091評(píng)論 3贊 395
• 救了他兩次的神仙讓他今天三更去死

  文/潘曉璐 我一進(jìn)店門惰拱，熙熙樓的掌柜王于貴愁眉苦臉地迎上來雌贱，“玉大人，你說我怎么就攤上這事偿短⌒拦拢” “怎么了？”我有些...

  開封第一講書人閱讀 164,548評(píng)論 0贊 354
• 道士緝兇錄：失蹤的賣姜人

  文/不壞的土叔 我叫張陵昔逗，是天一觀的道長(zhǎng)降传。 經(jīng)常有香客問我，道長(zhǎng)勾怒，這世上最難降的妖魔是什么婆排？ 我笑而不...

  開封第一講書人閱讀 58,657評(píng)論 1贊 293
• ?港島之戀（遺憾婚禮）

  正文 為了忘掉前任，我火速辦了婚禮笔链，結(jié)果婚禮上段只，老公的妹妹穿的比我還像新娘。我一直安慰自己鉴扫，他們只是感情好赞枕，可當(dāng)我...

  茶點(diǎn)故事閱讀 67,689評(píng)論 6贊 392
• 惡毒庶女頂嫁案：這布局不是一般人想出來的

  文/花漫 我一把揭開白布。 她就那樣靜靜地躺著坪创，像睡著了一般炕婶。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上莱预，一...

  開封第一講書人閱讀 51,554評(píng)論 1贊 305
• 城市分裂傳說

  那天柠掂，我揣著相機(jī)與錄音，去河邊找鬼锁施。 笑死陪踩，一個(gè)胖子當(dāng)著我的面吹牛杖们，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播肩狂，決...

  沈念sama閱讀 40,302評(píng)論 3贊 418
• 雙鴛鴦連環(huán)套：你想象不到人心有多黑

  文/蒼蘭香墨 我猛地睜開眼摘完，長(zhǎng)吁一口氣：“原來是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來了傻谁？” 一聲冷哼從身側(cè)響起孝治，我...

  開封第一講書人閱讀 39,216評(píng)論 0贊 276
• 萬榮殺人案實(shí)錄

  序言：老撾萬榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎审磁，沒想到半個(gè)月后谈飒，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...

  沈念sama閱讀 45,661評(píng)論 1贊 314
• ?護(hù)林員之死

  正文 獨(dú)居荒郊野嶺守林人離奇死亡态蒂，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...

  茶點(diǎn)故事閱讀 37,851評(píng)論 3贊 336
• ?白月光啟示錄

  正文 我和宋清朗相戀三年杭措，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片钾恢。...

  茶點(diǎn)故事閱讀 39,977評(píng)論 1贊 348
• 活死人

  序言：一個(gè)原本活蹦亂跳的男人離奇死亡手素，死狀恐怖，靈堂內(nèi)的尸體忽然破棺而出瘩蚪，到底是詐尸還是另有隱情泉懦，我是刑警寧澤，帶...

  沈念sama閱讀 35,697評(píng)論 5贊 347
• ?日本核電站爆炸內(nèi)幕

  正文 年R本政府宣布疹瘦，位于F島的核電站崩哩，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏言沐。R本人自食惡果不足惜邓嘹，卻給世界環(huán)境...

  茶點(diǎn)故事閱讀 41,306評(píng)論 3贊 330
• 男人毒藥：我在死后第九天來索命

  文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望呢灶。 院中可真熱鬧吴超，春花似錦钉嘹、人聲如沸鸯乃。這莊子的主人今日做“春日...

  開封第一講書人閱讀 31,898評(píng)論 0贊 22
• 一樁弒父案跋涣，背后竟有這般陰謀

  文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)缨睡。三九已至，卻和暖如春陈辱，著一層夾襖步出監(jiān)牢的瞬間奖年，已是汗流浹背。 一陣腳步聲響...

  開封第一講書人閱讀 33,019評(píng)論 1贊 270
• 情欲美人皮

  我被黑心中介騙來泰國(guó)打工沛贪， 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留陋守，地道東北人震贵。 一個(gè)月前我還...

  沈念sama閱讀 48,138評(píng)論 3贊 370
• 代替公主和親

  正文 我出身青樓，卻偏偏與公主長(zhǎng)得像水评，于是被迫代替她去往敵國(guó)和親猩系。 傳聞我的和親對(duì)象是個(gè)殘疾皇子，可洞房花燭夜當(dāng)晚...

  茶點(diǎn)故事閱讀 44,927評(píng)論 2贊 355