篩選後資料如何複製貼上指定的欄位??? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 篩選後資料如何複製貼上指定的欄位???

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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 版主
如果不以假設的方式，巨集是否可再簡短些???

超級版主 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兔年全勤獎章

10^#

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

回復 9# p6703
1# 說 :請問以篩選後資料如要複製至指定的欄位
7# 又說附件重新不規律排序執行巨集，只有前二列於G欄秀出正確的值，第三列開始的值都變成第一列的金額
給你8# 的程式是有依你說撰寫的.
9# 說但跑出結果仍是只有前二筆會套取正確數據，自第三筆起都是捉取第一筆的數據
那我就不知你的問題是什麼了

中學生 Rank: 2

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

論壇贊助勳章

9^#

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

GBKEE版主，小弟以新巨集執行，但跑出結果仍是只有前二筆會套取正確數據，自第三筆起都是捉取第一筆的數據

附件如下，再請版主確認協助，謝謝...

篩選後將指定資料複製到指定的欄位-2.rar (7.44 KB)

超級版主 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兔年全勤獎章

8^#

發表於 2012-11-2 17:12 | 只看該作者

回復 7# p6703
試試看

Option Explicit
Sub Ex()
Dim Rng As Range, xi As Integer, i As Integer, e As Range
Set Rng = Range("E2", Range("E2").End(xlDown)).SpecialCells(xlCellTypeVisible)
'SpecialCells 方法傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
For xi = 1 To Rng.Areas.Count
'Areas 屬性定傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
For Each e In Rng.Areas(xi).Cells
i = i + 1
If i <= 2 Then '前2列
e.Offset(, 2) = e.Value
Else
e.Offset(, 2) = Rng.Cells(1).Value
End If
Next
Next
End Sub

複製代碼

PS: 回文時請按 [回覆] 按鈕答覆你的人才會得到通知, 這是基本的禮貌

中學生 Rank: 2

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

論壇贊助勳章

7^#

發表於 2012-11-2 16:47 | 只看該作者

感謝GBKEE版主，小弟誤解了程式碼

小弟以附件重新不規律排序執行巨集，只有前二列於G欄秀出正確的值，第三列開始的值都變成第一列的金額，附上如下，請再幫忙看看，謝謝您^^

篩選後將指定資料複製到指定的欄位-1.rar (6.44 KB)

超級版主 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兔年全勤獎章

6^#

發表於 2012-11-2 16:14 | 只看該作者

回復 5# p6703
修改附檔資料,試試不就知道.

中學生 Rank: 2

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

論壇贊助勳章

5^#

發表於 2012-11-1 23:54 | 只看該作者

感謝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兔年全勤獎章

4^#

發表於 2012-11-1 15:08 | 只看該作者

回復 3# p6703
試試看

Option Explicit
Sub Ex()
With Range("E2", Range("E2").End(xlDown))
.Offset(, 2) = .SpecialCells(xlCellTypeVisible).Value
End With
End Sub

複製代碼

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 2012-11-1 14:41 | 只看該作者

GBKEE 版主，執行巨集將E欄的資料複製貼到G欄2~13列，但小弟需求的是貼上對應的列數(3,6,9,12,15.....）

超級版主 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兔年全勤獎章

2^#

發表於 2012-11-1 14:27 | 只看該作者

回復 1# p6703
試試看

Option Explicit
Sub Ex()
Range("E2", Range("E2").End(xlDown)).Copy [G2]
End Sub

複製代碼

靜思自在 : 人生沒有所有權，只有生命的使用權。

返回列表下一主題上一主題