[發問] 程式碼簡化

ziv976688

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

‘列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)

下載次數: 7

2021-7-14 01:02

singo1232001

回復 1# ziv976688

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

ziv976688

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

下載 (115.09 KB)

2021-7-14 09:24

謝謝您一再的耐心指導

singo1232001

回復 3# ziv976688

ziv976688

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

singo1232001

回復 5# ziv976688


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

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

ziv976688

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

singo1232001

回復 7# ziv976688


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

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

ziv976688

回復 8# singo1232001
感謝您