[[20140410004217]]　『一覧表から個別に振り分ける方法』（マイレール）　ページの最後に飛ぶ

『一覧表から個別に振り分ける方法』（マイレール）

こんばんは
sheet1

  A           B      C
新規     あｻﾝ   男
取消     かｻﾝ   男
再発行   さｻﾝ   女 
新規     たｻﾝ   女

sheet2
A B C D E F G H I
新規取消再発行
新規あｻﾝ男取消かｻﾝ男再発行さｻﾝ女
新規たｻﾝ女

というふうに
sheet1のデータをsheet2の新規・取消・再発行の項目別に振り分けたいのですが
どうしたらいいのか分かりやません
助けてください(ToT)

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

 なかなか回答が付かないようなので、マクロになりますがサンプルまで。
 Sub Sample()
    Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")
    Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2")
    ws2.Cells.Clear
    ws2.Range("A1").Value = "新規"
    ws2.Range("D1").Value = "取消"
    ws2.Range("G1").Value = "再発行"
    ws2.Range("J1").Value = "その他"

    Dim r As Long
    Dim c As String
    For r = 1 To ws1.Cells(Rows.Count).Row
        Select Case ws1.Cells(r, "A")
            Case "新規": c = "A"
            Case "取消": c = "D"
            Case "再発行": c = "G"
            Case Else: c = "J"
        End Select
        ws2.Cells(Rows.Count, c).End(xlUp).Offset(1).Resize(1, 3).Value = ws1.Cells(r, "A").Resize(1, 3).Value
    Next
 End Sub
（Mook） 2014/04/10(木) 19:37

手作業でもそんなに手間でないかも知れません。

 １）フィルター
 ２）新規を抽出
 ３）コピペ
 ４）取消を抽出
 ５）1行目を除いてコピペ
 ６）再発行を抽出
 ７）1行目を除いてコピペ

（マナ） 2014/04/10(木) 22:19

コメント返信：

[ 一覧(最新更新順) ]

[[20140410004217]] 『一覧表から個別に振り分ける方法』（マイレール） ページの最後に飛ぶ

[[20140410004217]]　『一覧表から個別に振り分ける方法』（マイレール）　ページの最後に飛ぶ