返回列表 上一主題 發帖

請問做法 ?A檔案有10000筆資料，要輸出成5個新檔A1~A5，每個檔案2000筆資料

空白的樂章

帖子
12 
主題
2 
精華
0 
積分
58 
點名
0  
作業系統
win10 
軟體版本
2016 
閱讀權限
20 
註冊時間
2017-6-13 
最後登錄
2018-7-26 
1# 跳轉到 »
發表於 2018-3-24 00:08 | 顯示全部帖子
這兩句語法有點問題
sb.Sheets("露天上架檔").Range(Cells(pt - 1999, 1), Cells(pt, 31)).Copy
Workbooks(db1).Sheets("sheet1").Range(Cells(pt - 1999, 1), Cells(pt, 31))

你仔細再看一下檔案，應該A2~A5不是沒資料
而是A2的資料貼到2001~4000列
A3貼到4001~6000列以此列推了
第二句程式碼應該固定儲存格就好
可以改成
Workbooks(db1).Sheets("sheet1").Range("A1").select
activate.paste
意思就是在A1欄位貼上複製的儲存格內容

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題