Excelの高度なフィルターを使用してデータを別のワークシートにコピーするにはどうすればよいですか？

通常、私たちはすぐに適用することができます 高度なフィルタ 同じワークシートの生データからデータを抽出する機能。 ただし、フィルタリングされた結果を別のワークシートにコピーしようとすると、次の警告メッセージが表示される場合があります。 この場合、Excelでこのタスクをどのように処理できますか？

高度なフィルター機能を使用して、高度なフィルターを使用してデータを別のワークシートにコピーする

VBAコードを使用して、高度なフィルターを使用してデータを別のワークシートにコピーします

高度なフィルター機能を使用して、高度なフィルターを使用してデータを別のワークシートにコピーする

このジョブを解決するための簡単な回避策は次のとおりです。次のようにしてください。

1。 高度なフィルター機能を使用して、フィルター処理された結果をコピーするワークシートをアクティブ化します。

2。 次に、をクリックします 且つ > 高機能、スクリーンショットを参照してください：

3。 の中に 高度なフィルタ ダイアログボックスで 別の場所にコピーする Action セクションをクリックし、をクリックします ボタンをクリックして、横にある別のシートでフィルタリングするデータ範囲を選択します リスト範囲、クリックしてください ボタンの横にある 基準範囲 別のシートから基準を選択するには、スクリーンショットを参照してください。

4。 次に、をクリックします ボタンの横にある コピー先 ボックスをクリックして、アクティブなシートからフィルタリングされた結果を出力するセルを選択し、をクリックします。 OK ボタンをクリックすると、フィルタリングされた結果が元のデータシートに基づいて別のシートに抽出されます。

VBAコードを使用して、高度なフィルターを使用してデータを別のワークシートにコピーします

VBAコードに精通している場合は、次のVBAコードでこのジョブを完了することができます。

1。 フィルタリングするワークシートをアクティブにして、結果を別のシートにコピーします。

2。 を押し続けます Alt + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：高度なフィルターを使用してデータを別のワークシートにコピーします。

Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub
    Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit
End Sub

4。 そして、 F5 キーを押してこのコードを実行すると、プロンプト ボックスが表示され、フィルタリングするデータ範囲を選択できます。スクリーンショットを参照してください。

5。 次に、をクリックします OKと、別のダイアログ ボックスが表示され、フィルタリングする基準範囲を選択するよう求められます。スクリーンショットを参照してください。

6。 クリックしてください OKポップアップされたダイアログ ボックスで、フィルター結果を出力する別の新しいワークシートからセルを選択してください。スクリーンショットを参照してください。

7。 最後に、 OK ボタンをクリックすると、フィルタリングされたデータが必要に応じて指定した別のシートに出力されます。