p6703

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

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

GBKEE

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

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

複製代碼

eg0802

回復 12# GBKEE


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

GBKEE

回復 13# eg0802
附檔看看

Hsieh

回復 13# eg0802

必須引用項目Microsoft Forms 2.0 Object Library

下載 (37 KB)

2012-11-22 17:46

下載 (146.25 KB)

2012-11-22 17:46

貼上可見儲存格.rar (9.55 KB)

下載次數: 11

2012-11-22 17:48

eg0802

回復 15# Hsieh


    感謝h大  成功了  ，小弟魯鈍 最後請問H大複製跟貼上的按鈕  怎麼設定的??

eg0802

回復 16# eg0802


    在請問一下H大  為什麼我套用在別的表格就不行了呢????
       除錯之後得到這個  mystr = data.GetText(1)

eg0802

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

下載次數: 10

2012-11-23 14:49

回復 15# Hsieh


    H大 不好意思  能否麻煩您幫忙看一下附件 為何會如此?  萬分感激

GBKEE

回復 18# eg0802

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

複製代碼

scram139

剛好遇到這個問題，來下載測試看看，感謝大大提供解決方法