0

こんにちは（VBAプログラミングは本当に初めてです-今日から始めました）論理ステートメントに基づいてあるシートから別のシートにデータをコピーし、2番目のシートを上から下に埋めたいとします（つまり、お互いの間に空の行はありません）このようなことを始めます。

ここに画像の説明を入力

シート 1 の上記から、シート 2 で次のようにします。行 1、3、4、および 7 に回答が含まれているためです。

ここに画像の説明を入力

ただし、これはテスト データです。実際のファイルには約 1000 エントリが含まれています。

アシストしてくれてありがとう。

あ

4

1 に答える 1

0

これが答えのフレームワークです

Sub test()
    Application.ScreenUpdating = False
    Sheets("Patient Database").Activate
    Selection.AutoFilter

    With ActiveSheet.Range("$A$2:$D$10")
        .AutoFilter Field:=4, Criteria1:=">0"
        .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy
    End With

    Sheets("Sheet2").Activate



    Sheets("Sheet1").Activate
    ActiveSheet.Range("A2").AutoFilter
    Application.ScreenUpdating = True
End Sub
于 2013-01-15T15:21:11.067 に答える