VBA：1つのシートから別のシートに不連続なデータをコピーする

Question

特定の日付に基づいて特定のデータを除外するワークシートを作成しています。 Range.AutoFilterを使用してデータをフィルタリングするコードを記述したら、ワークシート内の可視データ（別のワークシートには連続していない）を別のワークシートにコピーします。このために私は、エラーメッセージがコードのこの.Range("A1:AF" & row).SpecialCells(xlCellTypeVisible).Copyラインのために、「それはあまりにも複雑であるため、Microsoft Office Excelでデータ範囲の参照を作成したり使用することはできません」と言ってポップアップ表示

With ThisWorkbook.Sheets("ImportDumpData") 
    .Activate 
    'frow variable counts the total number of rows in the sheet 
    frow = .Range("A" & Rows.Count).End(xlUp).Row 
    .Columns("U:U").Select 
    Selection.AutoFilter 
    .Range("U2:U" & frow).AutoFilter field:=1, Criteria1:=">" & ThisWorkbook.Sheets("Main").Range("C4"), Operator:=xlEnd 
    .Range("A1:AF" & frow).SpecialCells(xlCellTypeVisible).Copy 
End With 

を使用しています。 できることを提案してください。

Answer 1

ActiveSheet.Range（ "$ A $ 1：$ F $ 518"）。オートフィルタフィールド：= 4、Criteria1：= ">" .Range（ "A：AF" & frow）.SpecialCells（xlCellTypeVisible）.Copy

あなたのコードのためにこれを使用してください。