12
返回列表 上一主題 發帖

自動複製有資料的區塊

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
11# 跳轉到 »
發表於 2012-1-20 23:39 | 顯示全部帖子
版大,
修改後可以執行,但執行不完全,試了好幾次,結果都相同,似乎只有copy 欄A資料,B:C資料COPY不完全,可否幫我看看為什麼?TKS. Chart-F.zip (63.46 KB)

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
12#
發表於 2012-1-21 03:07 | 顯示全部帖子
版大,我找到原因了,這個表已經ok. 謝謝你.
    With Workbooks("Chart-F.xlsx").Sheets("工作表1")
    Set B = Intersect(.UsedRange, .Range("A:D")).SpecialCells(xlCellTypeVisible)
    Workbooks("2011 BCMart Multi-Format.xlsx").Activate
    Sheets("Factory's order").Select
    Range("A1").Select
    B.Copy
    Selection.PasteSpecial xlPasteValues   '選擇性貼上值
    End With

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題