[[20150407203204]]　『データを抽出したい』（@@@）　ページの最後に飛ぶ

『データを抽出したい』（@@@）

a列に500件ほどの郵便番号､B列に同じく500件ほどの住所､C列にも同じく500件ほどの名前(下記参照)のデータがあります｡

【A列】　【B列】　【B列】
100-1000　栃木県　　山田
200-3000　石川県　　佐藤
500-5100　東京都　　藤原
･
･
･

というように､このデータにはれぞれの列に500件ほどの情報が記載されています｡
このデータを､別のまとめ用のシートのA列に次のように抽出したいと考えています｡

　　　【A列】
1行目　100-1000
2行目　栃木県
3行目　山田

4行目　200-3000
5行目　石川県
6行目　佐藤

7行目　500-5100
8行目　東京都
9行目　藤原
･
･
･

簡単にできそうですが､データが500件ほどあり困っております｡

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 元のシート名が Sheet1 なら、まとめ用のシートで
 A1=OFFSET(Sheet1!$A$1,INT((ROW(A1)-1)/3),MOD(ROW(A1)-1,3))
 を A2以下にコピーでどうでしょうか。

（Mook） 2015/04/07(火) 21:37

説明通り、データが3列にしかない場合のマクロ例。

 Sub test()
    Dim i As Long

    With Range("A1").CurrentRegion
        For i = 1 To .Count
            Sheets("Sheet2").Cells(i, "A").Value = .Item(i).Value
        Next i
    End With
 End Sub
（???） 2015/04/08(水) 09:19

コメント返信：

[ 一覧(最新更新順) ]

[[20150407203204]] 『データを抽出したい』（@@@） ページの最後に飛ぶ

[[20150407203204]]　『データを抽出したい』（@@@）　ページの最後に飛ぶ