- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 7# sandra_wang
會發生錯誤 同8樓問題 遇到沒資料時
Cells(9, 218).End(4) 會到檔案最底列的位置 2003 的ROWS.COUNT 為65536
Cells(9, 218).End(4)(2, 1) 是檔案最底列下移1列的位置 =65537 所以產生錯誤
改成由檔案最底列往上到有資料列的下一列試試看
Cells(9, m).CurrentRegion.Offset(1, 0).Copy Cells(Rows.Count, 218).End(3)(2, 1) |
|