- 帖子
- 678
- 主題
- 147
- 精華
- 0
- 積分
- 799
- 點名
- 0
- 作業系統
- win 8
- 軟體版本
- MS 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2016-2-9
- 最後登錄
- 2022-1-20
|
不好意思，陣列語法寫不來，只會土法煉鋼；
請各位先進指導和簡化。
謝謝！
‘列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)
|
|
發表於 2021-7-14 01:02
| 
