篩選後資料如何複製貼上指定的欄位???

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

11^# 跳轉到 »

發表於 2012-11-5 17:54 | 只看該作者

小弟明白了，SORRY讓GBKEE 版主誤會意思了

小弟原本希望巨集可以將已篩選的資料E欄位的數據複製至G欄（用複製的方式不可行）
7#小弟的意思是執行版主3#的巨集後，跑出的結果，仍無法達成希望的結果再請版主看看
之後有將巨集看懂了，只要將If i <= 2 中的2修改（因一般篩選後符合的數據不會超過幾10筆，我只將此數據改成100，即可全數套取），可符合小弟的需求了，謝謝GBKEE 版主
如果不以假設的方式，巨集是否可再簡短些???

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2012-11-6 17:56 | 只看該作者

回復 11# p6703
還是不太了解你的說法,試試看是這樣嗎?

Option Explicit
Sub Ex()
With ActiveSheet.UsedRange
.Range("A1").AutoFilter 2, "杯子"
.Columns("E:E").Offset(1).Copy
.Parent.AutoFilterMode = False '取消工作表的自動篩選
.Range("G:G") = ""
.Parent.Paste Destination:=.Range("G2")
End With
End Sub

複製代碼

TOP

eg0802

中學生 Rank: 2

帖子: 81
主題: 26
精華: 0
積分: 106
點名: 0
作業系統: WIN7
軟體版本: 32位元
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2012-3-3
最後登錄: 2019-6-26

13^#

發表於 2012-11-21 20:56 | 只看該作者

回復 12# GBKEE

G 大小弟想請教一下有時篩選後複製只想貼上可見儲存格會有不相鄰無法執行此步驟的問題發生有辦法用VBA 可以解決嗎?

Jason

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2012-11-22 16:39 | 只看該作者

回復 13# eg0802
附檔看看

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 252
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章