返回列表 上一主題 發帖

關於copy至另一工作頁

eric093

帖子
77 
主題
30 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-7-14 
最後登錄
2018-10-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-1-30 13:03 | 只看該作者

關於copy至另一工作頁

請教：
先在其它工作頁上執行所需要的資料篩選後，複制，再選其它工作頁貼上，原則上都可正常執行，
但是，若在執行巨集前，滑鼠若在訂單工作頁上點在某一儲存格就無法執行，若是以滑鼠全選整個工作頁的話，就可以正常執行，請問應該怎麼排除！
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).EntireRow.Copy
Sheets("訂單").Select
Selection.PasteSpecial
收藏 分享
新人一枚

eric093

帖子
77 
主題
30 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-7-14 
最後登錄
2018-10-3 
5#
發表於 2014-2-2 19:18 | 只看該作者
回復 4# GBKEE

感謝版大！了解了！
新人一枚

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-1-31 08:45 | 只看該作者
回復 1# eric093
  1. ).EntireRow.Copy  '整列,或 整欄複製
複製代碼
所貼上的儲存格(點)必須是列或欄,的第一個 Cell (才符合整列,或整欄的範圍)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

eric093

帖子
77 
主題
30 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-7-14 
最後登錄
2018-10-3 
3#
發表於 2014-1-30 14:33 | 只看該作者
感謝解救！
新人一枚

TOP

zxcxz

帖子
34 
主題
14 
精華
0 
積分
61 
點名
0  
作業系統
Winxp 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-25 
最後登錄
2019-3-4 
2#
發表於 2014-1-30 14:26 | 只看該作者
因為entire row 不能在column A以後位置貼上
加返select A1 cell即可

ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).EntireRow.Copy
Sheets("訂單").Select
Activesheet.range("A1").select
Selection.PasteSpecial

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題