シート内データを分割し別のシートへコピー・ペーストする方法

質問

• シート内にまとめられているデータを分割してコピーし、別の複数のシートにペーストする方法を教えてください。
• 例えば、学校の成績を、教科ごとに表示するシートから、生徒ごとに表示するシートへとデータをコピーする方法について教えてください。
• マクロ（VBA）を利用してデータの自動化を行いたい場合もありますが、どなたか詳しい方にお力をお貸しください。

回答No.5

goo793ww

'▼(6)シート有無チェック(なければ最後部に追加)
For i = 0 To myDic.Count - 1
For Each mySh In Worksheets
myFlg = False
'▼(7)振分先シートが有ればデータ領域を削除する
If mySh.Name = myKey(i) Then
myFlg = True
Worksheets(myKey(i)).Activate '…シート切替え(部分削除:シートをActiveにする必要がある)
xxRow = Worksheets(myKey(i)).Cells(Rows.Count, kyoukaNo).End(xlUp).Row
Worksheets(myKey(i)).Range(Cells(3, kyoukaNo), Cells(xxRow, kyoukaNo)).ClearContents
Exit For
End If
Next mySh
'▼(8)振分先シートが無ければシートを追加する
If myFlg = False Then
ActiveWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = myKey(i)

'追加シートの書式設定をする
Cells.Select
With Selection.Font
.Name = "ＭＳ ゴシック"
.Size = 11
End With
Range("A1").Select
End If

'▼(9)項目を各シートへ表記
Worksheets(myKey(i)).Activate '…シート切替え
Worksheets(myKey(i)).Rows("2:2").NumberFormatLocal = "@" '…書式(文字列)
Worksheets(myKey(i)).Columns("A:A").NumberFormatLocal = "@" '…書式(文字列)
Worksheets(myKey(i)).Range("A1").Value = "ID:" & myKey(i) '…生徒ID
Worksheets(myKey(i)).Range("B1").Value = myVal(i + 1, 2) '…生徒名
Worksheets(BaSheet).Range("C2:G2").Copy
Worksheets(myKey(i)).Range("A3").PasteSpecial Paste:=xlPasteValues, Transpose:=True '…試験日(行列を入替えて値張付け)
Application.CutCopyMode = False '…Copy:クリップボード解放
Worksheets(myKey(i)).Cells(2, 1).Resize(1, kyoukaSu).Value = kyouka '…教科名表示
Worksheets(myKey(i)).Range(Cells(2, 2), Cells(2, kyoukaSu)).HorizontalAlignment = xlRight '…右端表示
Worksheets(myKey(i)).Range(Cells(2, 1), Cells(2, kyoukaSu)).Interior.ColorIndex = 24 '…背景色:淡い紫
Range("A1").Select

'▼(10)値を各シートへ転記

お礼

ありがとうございました　＾＾