Excelでデータを取り扱っていると、あるシートから別のシートへデータを移動させたい場面が必ずやってきます。手作業でコピー＆ペーストをしていると時間がかかり、エラーも発生しやすいですよね。そこで役立つのがVBA（Visual Basic for Applications）です！VBAを使えば、別シートからデータを抽出して転記する作業を簡単に自動化できます。
この記事では、VBA初心者にもわかりやすく、かつ即実践できる方法を詳しく解説します。これをマスターすれば、作業効率が格段にアップし、同じ作業を繰り返す手間が省けるでしょう。それでは、さっそくVBAでデータを別シートから抽出して転記する方法を一緒に学んでいきましょう！
VBAでデータを別シートから抽出するための準備
Excelのイメージ
VBAでデータを転記するためには、まず基本的な準備を整える必要があります。最初にやるべきは、どのシートからデータを抽出するのか、そしてどのシートにデータを転記するのかを決めることです。これを間違えると、後々の作業で混乱を招いてしまうので、慎重に設定しましょう。
抽出元と転記先のシートを設定する
VBAコード内でシートを指定するには、次のように書きます。
vba
Dim sourceWs As Worksheet
Set sourceWs = ThisWorkbook.Sheets("SourceSheet")
Dim targetWs As Worksheet
Set targetWs = ThisWorkbook.Sheets("TargetSheet")
この部分では、データを抽出したいシート（”SourceSheet”）と、データを転記する先のシート（”TargetSheet”）を指定しています。これを元にコードを動かしていきます。
データの範囲を確認する
次に、データがどの範囲に入っているかを確認する必要があります。これにより、VBAがどこからデータを取得すべきかを理解します。たとえば、データの範囲は「A列」の最終行をもとに決定できます。最終行を取得するコードは以下のように書きます。
vba
Dim lastRow As Long
lastRow = sourceWs.Cells(sourceWs.Rows.Count, "A").End(xlUp).Row
これにより、データの入っている最終行が自動的に取得されます。この操作は、データの長さが変更されても動的に対応できるため、非常に便利です。
VBAでデータを条件に基づいて抽出し転記する方法
次に、特定の条件に合うデータを抽出して別シートに転記する方法を見ていきましょう。例えば、A列に「Criteria」という文字が入っている行だけを抽出し、転記するケースを考えます。
条件を満たすデータを抽出する
条件に合致するデータを抽出するには、For文とIf文を組み合わせて使います。例えば、「Criteria」が含まれている行を抽出し、その内容を転記するコードは次の通りです。
vba
Dim i As Long
Dim outputRow As Long
outputRow = 1 ' 転記先シートの開始行
For i = 1 To lastRow
If sourceWs.Cells(i, 1).Value = "Criteria" Then
' 条件に一致する場合、転記
targetWs.Cells(outputRow, 1).Value = sourceWs.Cells(i, 1).Value
targetWs.Cells(outputRow, 2).Value = sourceWs.Cells(i, 2).Value
targetWs.Cells(outputRow, 3).Value = sourceWs.Cells(i, 3).Value
outputRow = outputRow + 1
End If
Next i
このコードでは、「Criteria」という文字列をA列で探し、その行のデータを転記先のシートにコピーしています。この方法を使えば、指定した条件に合ったデータだけを転記することができ、非常に効率的です。
Excel VBAでより高度なデータ抽出を実現する方法
ここでは、さらに一歩踏み込んだテクニックを紹介します。複数の条件を指定してデータを抽出する方法や、別ファイルにデータを転記する方法です。
複数条件でデータを抽出する
複数の条件に基づいてデータを抽出するには、If文を工夫することで実現できます。たとえば、A列とB列の両方に条件を設定してデータを抽出したい場合、次のように書けます。
vba
If sourceWs.Cells(i, 1).Value = "Criteria" And sourceWs.Cells(i, 2).Value = "AnotherCriteria" Then
' データを転記する処理
End If
これにより、A列とB列の両方が指定された条件を満たす場合にのみ、そのデータを転記することができます。複数の条件を使えば、さらに精密なデータ抽出が可能です。
別ファイルにデータを転記する
Excelでは、VBAを使って他のワークブック（別ファイル）にデータを転記することも可能です。この方法は、例えば日々のデータを集計する場合などに非常に有効です。以下のように別ファイルを操作するコードを書きます。
vba
Dim targetWb As Workbook
Set targetWb = Workbooks.Open("C:\Path\To\Your\TargetFile.xlsx")
Dim targetWs As Worksheet
Set targetWs = targetWb.Sheets("TargetSheet")
これにより、指定したパスのファイルを開き、その中の指定したシートにデータを転記することができます。
Excel 別 シート から 抽出 VBAに関する疑問解決
Q1: VBAを使うにはどのように開発環境を整えればいいですか？
VBAの開発環境を整えるためには、まずExcelを開き、Alt + F11でVBAエディタを起動します。そこから、コードを書くためのモジュールを追加できます。初心者でも簡単に始められるので、まずは基本的なコードを少しずつ書いてみると良いでしょう。
Q2: 条件に合うデータだけを転記する方法は？
条件に合ったデータを転記する方法については、VBAのIf文を使用します。例えば、A列が特定の文字列に一致した場合のみデータを転記するコードを書けます。上記で紹介したコードを参考にして、条件を指定してみましょう。
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Excelでのデータ抽出や転記作業をVBAで効率化する方法を解説しました。VBAを使えば、手作業を減らし、業務効率を大幅にアップさせることができます。特に、条件を指定して必要なデータだけを抽出し、別シートに転記する方法は非常に便利です。VBAをうまく活用すれば、作業時間が短縮され、ミスも減少します。今すぐにでも実践できる内容を盛り込んでいるので、ぜひ実際の業務に取り入れて、作業の効率化を図りましょう！
コメント