VBAで必要な列だけを抽出して別の場所にコピーする方法

概要

Excelのデータを処理する際、全列ではなく特定の列だけを別の場所に抽出したいケースがあります。フィルターや手作業でのコピーでも可能ですが、VBAを使えば複数列の抽出を一度に自動化できます。本記事では、配列を使って必要な列番号を指定し、まとめてコピーする方法をご紹介します。

---

サンプルコード

Sub ExtractSelectedColumns()
    Dim srcRange As Range
    Dim colList As Variant
    Dim i As Long
    
    ' 抽出元の範囲
    Set srcRange = Range("B2:F11")
    
    ' 抽出したい列番号（範囲内での相対位置）
    colList = Array(1, 4) ' 1列目と4列目を抽出
    
    ' 列ごとにコピー
    For i = 0 To UBound(colList)
        srcRange.Columns(colList(i)).Copy _
            Destination:=Range("H2").Offset(0, i)
    Next i
End Sub

---

コード解説

1. srcRangeで抽出元の範囲を指定
   今回はB2:F11を対象としています。
2. 配列colListで抽出列を設定
   Array(1, 4)は、範囲の左端を1列目とし、1列目と4列目を抽出します。
3. ループでコピー処理
   srcRange.Columns(colList(i)).Copyを使い、抽出対象の列を順番にコピーします。
4. 出力先をOffsetで調整
   Range("H2").Offset(0, i)で、出力先の列をずらしながら貼り付けます。

---

応用例

• 売上表から「商品名」と「売上金額」だけを抽出
• 顧客データから「氏名」と「電話番号」を抜き出し
• アンケート結果から必要な質問項目だけを抽出

---

まとめ

VBAで配列を使うと、複数列の抽出を効率的に自動化できます。列番号の指定を変更するだけで、柔軟に抽出内容を切り替えられるため、再利用性も高い方法です。

副業から独立まで「稼げる」Webスキルを習得する（PR）

ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。

「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。

このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。

講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。

副業に特化した強み

• 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
• AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
• 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。

受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。

受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。

ブログで稼ぎたいなら「メイカラ」