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

p6703

請問以篩選後資料如要複製至指定的欄位，以巨集如何達成，小弟以一般複製或貼上值的方式，都無法達成，懇請各位先進指教，謝謝

如附件中的E欄位希望將篩選符合的資料複製至G欄位...

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

下載次數: 23

2012-11-1 13:57

GBKEE

回復 1# p6703
試試看

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

複製代碼

p6703

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

GBKEE

回復 3# p6703
試試看

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

複製代碼

p6703

感謝GBKEE版主，小弟以巨集執行可以了，但如果篩選後的列數不是規則性的，此巨集執行是否仍可套用???（因為看程式碼小弟自行猜想是否固定隔二列將資料貼上，但小弟的附件只是剛好其間隔都一樣，如果列數呈不規則性的）

GBKEE

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

p6703

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

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


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

下載次數: 12

2012-11-2 16:47

GBKEE

回復 7# p6703
試試看

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

複製代碼

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

p6703

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

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

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

下載次數: 8

2012-11-5 16:38

GBKEE

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