[發問] 請問篩選後的結果如何複製

cksmark129

請問
如附檔
當"工作表1" A欄篩選 "2" 的結果，所得會為三筆資料。將此三筆資料之結果複製於"工作表2" 之 A1 貼上
當"工作表1" A欄篩選 "0" 的結果，所得會為零筆資料。將此零筆資料之結果複製於"工作表2" 之 A1  貼上

要怎麼使用VBA寫

謝謝

rouber590324

SIR
1.篩選需求 KEY IN 於 Sheet1.Range("C1") 內
2.程式如下  

Sub AA()
Sheet2.[A2:A65536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet2.[A65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 1) = Sheet1.Range("C1") Then
  Sheet2.Cells(Y + 1, 1) = Sheet1.Cells(M, 1)
  Y = Y + 1
  End If
  Next
End Sub

Hsieh

回復 1# cksmark129

1. Sub ex()
   
2. 工作表2.[A:B].ClearContents
   
3. With 工作表1
   
4. mystr = InputBox("輸入準則", , 2)
   
5. With .Range("A1").CurrentRegion
   
6.    .AutoFilter 1, "=" & mystr
   
7.    .SpecialCells(xlCellTypeVisible).Copy 工作表2.[A1]
   
8.    .AutoFilter
   
9. End With
   
10. End With
    
11. End Sub

複製代碼

准提部林

Sub CopyFilter()
With Sheets("工作表1")
     If Not .FilterMode Then Exit Sub
     Sheets("工作表2").UsedRange.Clear
     .AutoFilter.Range.Offset(1, 0).Copy [工作表2!A1]
End With
End Sub

cksmark129

回復 3# Hsieh
謝謝超級版主回復,
之前也是嘗試用 SpecialCells(xlCellTypeVisible).Copy,
但這樣會將 Type & TXT 此兩格也一併複製 (我只需要列2以下的資料)