【エクセルマクロ】都道府県ごとに別シート転記:複数条件一致で振り分け

VBA-都道府県ごとに別シート転記-アイキャッチ ExcelVBA

エクセルマクロで、都道府県(住所)ごとに別シート転記するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください!

都道府県ごとに別シート転記

以下のExcelVBAを実行すると、都道府県毎に別々のシートに自動転記します。


Sub 住所ごとに別シート抽出()

Dim Data As Worksheet
Dim i As Long
Dim RowCnt  As Long
Dim LastRow  As Long
Dim ShtName As String

    'シートを変数代入
    Set Data = Sheets("データ")
    
    Data.Select

    '「データ」 B列の最終行を取得
    LastRow = Data.Cells(Rows.Count, 2).End(xlUp).Row

    Application.ScreenUpdating = False

        '「データ」 2~最終行までループ
        For i = 2 To LastRow

            'A列が「OK」だったら
            If Data.Cells(i, 1) = "OK" Then
                
                'B列「住所」取得
                ShtName = Data.Cells(i, 2)
                
                '該当シートの最終行を取得
                RowCnt = Sheets(ShtName).Cells(Rows.Count, 1).End(xlUp).Row + 1
                
                '「データ」  B~H列の値を、該当シートに貼り付け
                Data.Range(Cells(i, 2), Cells(i, 8)).Copy Sheets(ShtName).Cells(RowCnt, 1)

            End If
        Next i

    Application.ScreenUpdating = True

End Sub

 

マクロ実行前

「データ」シートに、住所録があります。

A列が「OK」の場合、別シートへ転記します。


 

「東京都」「福岡県」「沖縄県」「宮城県」の各シートは、

すべて同じフォーマットです。

1行目にタイトル行が入っています。


 

マクロ実行後

「データ」シートのA列が「OK」の行について、

各都道府県のシートに、データを転記します。


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】別シート転記(抽出)を自動化する:超便利20選
...

 

「シンプルで一生使える現場直結のワザ大全 ExcelVBA 最高の教科書」
最強のワザ大全がついに登場!
全方位から「本気のVBA」を解説しています