データから指定項目のデータを各シートに振り分ける方法元のデータから指定した項目列の値を基準として、その値のデータを別シートに転記する方法をご紹介します。 例として、下記の表の2列目の地区でデータをまとめて地区名のシートを作成して、そのシートに地区ごとのデータを元データから転記するコードを説明します。 実行イメージ実行前 実行後 コードと解説 Sub 転記() Dim データ範囲 As Range Dim 条件範囲 As Range Dim 列 As Long Dim シート As Worksheet Dim i As Long Set データ範囲 = Range("A1").CurrentRegion 列 = 2 Set 条件範囲 = データ範囲.Cells(1).Offset(0, データ範囲.Columns.Count + 1) データ範囲.Columns(列).AdvancedFil