VBA - フィルタ/カット/

Question

私は列Kに列に

1. フィルターCriteria1（総売上高）にI
2. コピーCriteria1
3. 貼り付けデータをVBA文を書く方法を知っていただきたいと思い貼り付け
4. （売上高）のカラムI
5. コピーCriteria2
6. 貼り付けデータのフィルタCriteria2事前の人々で

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

   ありがとう：列にL

現在、私のコードは次のようになります。

Answer 1

（あなたのシートの名前に「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