返回列表 上一主題 發帖

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

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

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

要怎麼使用VBA寫

謝謝

範本.zip (6.82 KB)

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

TOP

回復 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
複製代碼
學海無涯_不恥下問

TOP

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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

TOP

        靜思自在 : 一句溫暖的話,就像往別人身上灑香水,自己會沾到兩三滴。
返回列表 上一主題