vbaフィルタリングして値として貼り付けます

Question

値をフィルタリングして1つのシートから別のシートにコピーしようとしていますが、私のコードの1つに固執しています。私は値として貼り付けることができないか、正しい構文を知らない。私は私が問題を抱えている部分を除いて、ここですべてをコピーするわけではない理由があるよう

 Set ws1 = Worksheets("AT") 
    Set ws2 = Worksheets("BT") 
    lr1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row 
    lr2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1 
    With ws1.Range("B2", "R" & lr1) 
     .AutoFilter Field:=1, Criteria1:="#N/A" 
     .Copy Destination:=ws2.Cells(lr2, "A") 
     .PasteSpecial (XlPastevalues, , ,) 
    End With 

コードの残りの部分は.pastespecialラインせずにフォロースルー。今は、既存のデータを最後に貼り付けているので、次のような形式はありません。データを追加するだけです。そして、既存のものにはフォーマットがあるので、私はそれを混乱させたくありません。

Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 

また、誰かがフィルタを行うための別の方法を提案することもできます。私の現在のコードは、範囲がテーブルの場合にのみ機能するので、テーブルを作成しなければ失敗します。私のデータはA1からRまでで、ヘッダーがあります。テーブルとして設定しないと、B2からフィルタリングされ、間違ったフィルタが適用されます。下記参照。フィルターをかけてコピーすると、既存のデータにヘッダーをコピーする必要はありません。

Answer 1

私はそれを行うためのいくつかの方法を考えることができますが、あなたの既存のコードを変更せずに、ずっとあなただけのコピーペーストの方法を分割することができます。大きなデータセットを話しているのでなければ、それは問題ではありません。

Set ws1 = Worksheets("AT") 
Set ws2 = Worksheets("BT") 
lr1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row 
lr2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1 
With ws1.Range("B2", "R" & lr1) 
    .AutoFilter Field:=1, Criteria1:="#N/A" 
    .Copy 
End With 
ws2.Cells(lr2, "A").PasteSpecial xlPasteValues 
Application.CutCopyMode = False