- 帖子
- 678
- 主題
- 147
- 精華
- 0
- 積分
- 799
- 點名
- 0
- 作業系統
- win 8
- 軟體版本
- MS 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2016-2-9
- 最後登錄
- 2022-1-20
|
回復 9# ML089
OK了
Sheets("DATA").Range("A" & Nrange - Num - Nrr(i), "I" & Nrange - 6).Copy Sheets(Srr(j)).Range(Prr(i))
改
Nrange - Nrr(i)
程式碼精簡很多，也學到許多語法。
謝謝您的耐心指導和幫忙~感恩 |
|
發表於 2021-7-23 23:43
| 
