返回列表 上一主題 發帖

[發問] 程式碼簡化

[發問] 程式碼簡化

不好意思,陣列語法寫不來,只會土法煉鋼;
請各位先進指導和簡化。
謝謝!

‘列113~列137的程式碼
'複製內容.............................................................................
        Sheets("DATA").Range("A" & StrRng + 1, "I" & mthcount + 1).Copy .Range("T2").Resize(1, mthcount - StrRng + 1)
        Sheets("DATA").Range("A" & StrRng, "I" & mthcount).Copy .Range("AC2").Resize(1, mthcount - StrRng + 1)
   With Sheets("準7進8")
        Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy .Range("AL2").Resize(1, mthcount - StrRng + 1)
   End With
   With Sheets("準7進8")
        Sheets("DATA").Range("A" & StrRng - 2, "I" & mthcount - 2).Copy .Range("AU2").Resize(1, mthcount - StrRng + 1)
   End With
   With Sheets("準7進8")
        Sheets("DATA").Range("A" & StrRng - 3, "I" & mthcount - 3).Copy .Range("BD2").Resize(1, mthcount - StrRng + 1)
   End With
   With Sheets("準7進8")
        Sheets("DATA").Range("A" & StrRng - 4, "I" & mthcount - 4).Copy .Range("BM2").Resize(1, mthcount - StrRng + 1)
   End With
   With Sheets("準7進8")
        Sheets("DATA").Range("A" & StrRng - 5, "I" & mthcount - 5).Copy .Range("BV2").Resize(1, mthcount - StrRng + 1)
   End With
   With Sheets("準7進8")
        Sheets("DATA").Range("A" & StrRng - 6, "I" & mthcount - 6).Copy .Range("CE2").Resize(1, mthcount - StrRng + 1)
   End With
        Sheets("準7進8").Range("AL2", "CD" & mthcount - StrRng + 2).Copy Sheets("準6進7").Range("AL2")
        Sheets("準7進8").Range("AL2", "BU" & mthcount - StrRng + 2).Copy Sheets("準5進6").Range("AL2")
        Sheets("準7進8").Range("AL2", "BL" & mthcount - StrRng + 2).Copy Sheets("準4進5").Range("AL2")
        Sheets("準7進8").Range("AL2", "BC" & mthcount - StrRng + 2).Copy Sheets("準3進4").Range("AL2")
        Sheets("準7進8").Range("AL2", "AT" & mthcount - StrRng + 2).Copy Sheets("準2進3").Range("AL2")
2021-0714 - 程式碼簡化.rar (86.88 KB)

本帖最後由 singo1232001 於 2021-7-14 05:49 編輯

回復 1# ziv976688

可能會有些許錯誤 如有bug 麻煩告知一下

2021-0713.zip (740.31 KB)

TOP

本帖最後由 ziv976688 於 2021-7-14 09:34 編輯

回復 2# singo1232001
測試報告:
1_下載的效果檔無法正常開啟,強制開啟呈現亂碼~檢視Excel版本為.xls,應該可以正常開啟才對。
2_主檔重新執行~在列118執行中斷。
未命名.png
2021-7-14 09:24


謝謝您一再的耐心指導

TOP

回復 3# ziv976688

遞減複製標題(主檔).zip (83.12 KB)

TOP

本帖最後由 ziv976688 於 2021-7-14 14:37 編輯

回復 4# singo1232001
還是有中斷點,
感謝您的指導

TOP

回復 5# ziv976688


    EXCEL 2016跑起來沒問題 或許EXCEL版本不同所致
主要就是碰到2樣問題
1. SAVEAS 版本的問題  目前是猜測您電腦的EXCEL版本 存成XLS 97-2003格式
2. 擔心某些"專門調整儲存格格式"的程式碼 對於較早的版本 支援性不夠 若有中斷點 可以回報讓我除錯看看

因為我的版本是跑不出錯誤的 只能由您那邊的電腦幫忙找錯

TOP

回復 6# singo1232001
瞭解了~我自己試試看。
再次感謝您的熱心幫忙和指導

TOP

回復 7# ziv976688


修正
資料夾名稱異常問題
新增同檔名資料夾添加序號異常問題
儲存格特殊樣式異常問題
L1>N1問題
L1文字異常問題

無法確定
儲存格特殊樣式 因版本不同 無法支援 異常問題

遞減複製標題(主檔).zip (83.09 KB)

TOP

回復 8# singo1232001
感謝您

TOP

        靜思自在 : 脾氣嘴巴不好,心地再好也不能算是好人。
返回列表 上一主題