返回列表 上一主題 發帖

[發問] 如何只複製篩選出來的資料(第一列除外)

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-7-20 09:58 | 只看該作者

[發問] 如何只複製篩選出來的資料(第一列除外)

編號   姓名   電話   地址
1
2
3
4
5
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-7-20 23:07 | 只看該作者
假設已經完成篩選
  1. Set tbl = ActiveCell.CurrentRegion
  2. tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Copy
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 2012-7-21 00:17 | 只看該作者
回復 2# kimbal


    請問複製過去後是否可以推疊?

第一次複製~如果有1筆資料~(目前有1筆資料)
第二次複製~如果有2筆資料~(加上第一次的，目前有3筆資料)

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2012-7-22 11:16 | 只看該作者
回復  kimbal


    請問複製過去後是否可以推疊?

第一次複製~如果有1筆資料~(目前有1筆資料)
第二 ...
av8d 發表於 2012-7-21 00:17



Excel 的複製功能沒有"記億".
其中一個方法是, 一行一行檢查是沒有已經存在,不存在就抄過去
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2012-7-22 12:23 | 只看該作者
回復 3# av8d

試試!!

Range("A" & WorksheetFunction.CountA(Range("A:A")) + 1).PasteSpecial xlPasteValues

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題