VBA - 過濾器/剪切/粘貼

-1

我想知道如何在VBA語句列I VBA - 過濾器/剪切/粘貼

複製標準1

粘貼數據寫入

篩選標準1（銷售總額）來K列在（淨銷售）
過濾Criteria2柱I
複印Criteria2
粘貼數據列L

目前我的代碼看起來是這樣的：先人們

Range("A1:J1").AutoFilter Field:=9, Criteria1:="Gross Sale" 
Columns("2" & ":" & Range("J70000").End(xlUp).Row).Copy

感謝。

來源

2017-02-22 Muhammad Hidayat

你已經發布的代碼位可能的工作。沒有看到小組的其他成員，很難從你發佈的內容中知道你的問題。 –

嘗試下面的代碼中（修改「Sheet6」你的表名）：

Option Explicit 

Sub CopyFiltResults() 

Dim FiltRng As Range 

With Worksheets("Sheet6") ' modify "Sheet6" to your sheet's name 
    With .Range("A1:J" & .Cells(.Rows.Count, "I").End(xlUp).Row) 
     ' set range filter column I to "Gross Sale" 
     .AutoFilter Field:=9, Criteria1:="Gross Sale" 

     Set FiltRng = .Columns(9).SpecialCells(xlCellTypeVisible) 
     FiltRng.Copy .Range("K1") '<-- only copy visible cells to Column K 
     Set FiltRng = Nothing '<-- clear range variable 

     ' set range filter column I to "Net Sales" 
     .AutoFilter Field:=9, Criteria1:="Net Sales" 
     Set FiltRng = .Columns(9).SpecialCells(xlCellTypeVisible) 
     FiltRng.Copy .Range("L1") '<-- only copy visible cells to Column L 
    End With 
End With 

End Sub

來源

2017-02-22 11:30:57

VBA - 過濾器/剪切/粘貼

回答

相關問題