返回列表 上一主題 發帖

請問做法 ?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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題