【Excel】条件に合う行だけを別のシートにコピーする6つの方法

Microsoft Excelでは、特定の条件に一致する行だけを抜き出して、別のワークシートへコピーしたい場面がよくあります。この記事では、Excelで条件を満たす行を別のシートにコピーするための実践的な方法を6つ、手順つきでわかりやすく解説します。

練習用ワークブックのダウンロード

以下からワークブックをダウンロードすれば、記事の手順を実際に操作しながら学べます。

条件に基づいて行を別のシートにコピーする6つの方法

ここでは、初心者でもすぐ使える6つの方法を紹介します。どれも実用性が高く、目的やデータ量に応じて使い分けできます。それでは、順番に見ていきましょう。

1. フィルター機能を使って行を別のシートにコピーする

まずは最も基本的なフィルターを使った方法です。例として、「果物名・単価・重量・合計金額」を含むデータセットを使用します。この表はFilter Op.というシートに保存されており、Result1シートへ条件に合う行をコピーします。

手順：

• まず、データ範囲を選択します。
• 次に、リボンのデータタブを開きます。
• 続いて、並べ替えとフィルターグループ内のフィルターをクリックします。

• 絞り込みたい列（ここではFruits列）のフィルター矢印をクリックします。
• 抽出したい項目を選択します。例としてMangoのみにチェックを入れます。すべての行を対象にする場合は(すべて選択)を選びます。

• 表示されたデータ全体を選択し、Ctrl+Cでコピーします。

• シート見出し下の+ボタンをクリックして新規シートを作成します（ショートカットキーShift+F11でも可）。
• 新しいシートResult1上でCtrl+Vを押して貼り付けます。
• これで、Filter Op.から抽出したデータがResult1へコピーされます。

2. 詳細フィルターを使って行を複製する

次に、詳細フィルター（Advanced Filter）を使う方法です。ここでは、合計金額が150より大きい果物の行を、元データのシートからResult1.1シートへコピーします。

手順：

• まず、Result1.1シートを開き、データタブの詳細設定をクリックします。

• ダイアログで「指定した範囲」（Copy to another location）を選択します。

• リスト範囲欄をクリックし、元データシートに移動してデータセット全体を選択します。

• 次に、検索条件範囲欄に、あらかじめ作成しておいた条件（合計金額>150など）のセル範囲を指定します。

• 抽出先欄を選択すると自動的にResult1.1シートへ切り替わるので、貼り付け先の任意のセルをクリックします。

• OKボタンを押します。

• これで、指定した条件に一致する行だけが元シートからResult1.1へ抽出・コピーされます。

3. 配列数式を使って行を別のシートにコピーする

数式を使えば、コピー処理を自動化できます。ここでは、前述のデータセットにショップ名（Shop Names）の列を追加したデータを使用し、ショップ名ごとに新しいシートへ行を振り分けます。各シートにはショップ名と同じ名前を付けておきます。

手順：

• まず、ショップ名ごとの新しいワークシートを作成します。

• 次に、例えばRootedシートのセルB4に以下の数式を入力し、Ctrl+Shift+Enterで確定します。Microsoft 365をお使いの場合はEnterだけでOKです。

=IFERROR(INDEX(Sheet7!$A$4:$E$100,SMALL(IF(Sheet7!$F$4:$F$100=$F$3,ROW(Sheet7!$A$4:$B$100)-ROW(Sheet7!$B$4)+1),ROWS(Sheet7!$A$4:$B4)),COLUMN()),"")

数式の解説

この配列数式では、以下のExcel関数を使用しています。

ROWS(array)
ROWS関数は、指定した配列またはセル範囲に含まれる行数を返します。

COLUMN([reference])
COLUMN関数は、引数に渡したセル参照に対応する列番号を返します。

SMALL(array, n)
SMALL関数は、指定した配列の中からn番目に小さい値を求めます。第1引数にデータ範囲、第2引数に取得したい順位を指定します。

INDEX(array, row_num, [column_num])
INDEX関数は、範囲内の指定した位置にある値を返します。第1引数に対象の配列、第2引数に行番号、第3引数（省略可）に列番号を指定します。

IFERROR(value, value_if_error)
IFERROR関数は、数式全体の外側に配置されたエラー処理用の関数です。結果がエラーの場合に、代わりの値（ここでは空文字）を返します。

• さらに、数式を下方向・右方向にコピーすると、条件に一致するすべての行が表示されます。

• 他のワークシートについても同じ操作を繰り返します。

• 元データのArray Formulaシートで値を変更してみると、各シートの内容が自動的に更新されることが確認できます。

• Rootedシートを開いて変更が反映されているかチェックしましょう。

4. 複数の関数を組み合わせて行を複製する

次は、IF・AND・MAX・INDEX・MATCHなどの関数を組み合わせる方法です。ここでも同じデータセットを使い、ドロップダウンリストからショップ名を選択してEnterキーを押すと、Functionsシートから合計金額が130以上の行だけがResult2シートへ自動的に表示される仕組みを作ります。

手順：

• まず、FunctionsシートのセルG5に以下の数式を入力します。

=IF(AND(F4=Sheet15!$C$1,E4>=130),MAX(G$1:G2)+1,"-")

• Enterキーを押します。

• フィルハンドルをドラッグして数式を下の範囲までコピーします。プラス（+）マークをダブルクリックすればオートフィルも可能です。

• これで、条件に一致する行に通し番号が付けられます。

数式の解説

MAX(number1, [number2], ...)
MAX関数は、引数に渡した数値の中から最大値を返します。

AND(logical1, [logical2], ...)
AND関数は論理関数で、すべての条件が満たされればTRUE、そうでなければFALSEを返します。

IF(logical_condition, [value_if_true], [value_if_false])
IF関数は、条件の真偽に応じて異なる値を返す代表的な条件分岐関数です。

• 続いて、Result2シートのセルB7に以下の数式を入力します。

=IFERROR(INDEX(Sheet14!F:F,MATCH(ROWS($1:1),Sheet14!$G:$G,0))&"","")

• Enterキーを押します。

数式の解説

ここで新しく登場するのはMATCH関数です。

MATCH(lookup_value, lookup_array, [match_type])
MATCH関数は、第1引数に検索値、第2引数に検索範囲、第3引数に照合の型（-1、0、1）を指定し、検索値が範囲内の何番目にあるかを返します。

• さらに、数式を下方向・右方向へコピーします。

• ドロップダウンから任意のショップ名を選択すると、そのショップのうち合計金額が130以上の果物の行だけが表示されます。

5. FILTER関数を使って行を別のシートにコピーする

FILTER関数（Microsoft 365／Excel 2021以降で利用可能）を使うと、条件に一致するデータを一瞬で抽出できます。FILTERシートのデータを、条件に基づいてResult3シートへコピーしてみましょう。

手順：

• まず、結果を表示させたいセルを選択します。ここではResult3シートのセルB5です。
• そこに以下の数式を入力します。

=FILTER(FILTER!B4:F14,FILTER!F4:F14="Rooted")

• Enterキーを押します。
• これで完了です！条件を満たすすべての行が、FILTERシートからResult3シートへ自動的に展開されます。

6. VBAを使って行を別のシートにコピーする

最後はVBAマクロによる自動化です。コマンドボタンを1回クリックするだけで、VBAシートから合計金額が150より大きい果物の行をResult4シートへ転記します。

手順：

• まず、開発タブを開きます（表示されていない場合はExcelのオプションから有効化してください）。
• 挿入からActiveX コントロールのコマンドボタンを選択します。

• プロパティウィンドウで、ボタンのキャプションやフォントを好みに合わせて変更します。

• ボタンをダブルクリックするとVBE（VBAエディター）が開くので、以下のコードを貼り付けます。

コード：

Private Sub CommandButton1_Click()
a = Worksheets("VBA").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("VBA").Cells(i, 4).Value > 150 Then
Worksheets("VBA").Rows(i).Copy
Worksheets("Result4").Activate
b = Worksheets("Result4").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Result4").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("VBA").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("VBA").Cells(1, 1).Select
End Sub

VBAコードの解説

• まずVBAシートの最終行番号を取得し、変数aに格納します。
• For文で各行をループし、IF文で各行の合計金額が150より大きいかを判定します。
• 条件に一致したら行をコピーし、Result4シートの最終行番号を変数bに取得します。
• b+1行目に貼り付けることで、既存データの下へ順に追記していきます。

• コードを実行するには、F5キーを押すか、シート上のボタンをクリックします。

• 最後にResult4シートを開けば、条件に一致する行がコピーされているのが確認できます。

まとめ

この記事では、Excelで条件に一致する行を別のシートへコピーする6つの方法を、具体例とともに解説しました。手作業で済ませたいならフィルターや詳細フィルター、自動化したいなら配列数式・FILTER関数・VBAがおすすめです。用途に合わせて最適な方法を選んでみてください。

関連記事

• 他のセルのテキストを表示する方法（4選）
• 2つのシートを比較して差分をコピーするVBAコード
• VBAで書式なしで値だけを貼り付ける方法
• Excelでコピー＆ペーストができないときの原因と対処法（9パターン）
• マクロで複数行をコピーする方法（4つの例）