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

質問

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

回答No.3

goo793ww

掲題の件、興味がわき実践向きに試作してみました。
お役に立てば幸いです。
<説明>
1.教科シートのレイアウト
1行目は仕組みとして割付ていません…自由に利用して下さい。
　A列 :生徒ID(数値入力可、但し文字列にマクロで強制します)
　B列 :生徒名
　C2～Z2 :試験日(例えば、1学期・2学期・3学期・05/01・06/01・・・)
C3右側下側 :データ入力欄(成績データ)
2.教科シートのネーミング
　自由(例えば、国語・数学・英語・・・が適当です)
　特記:この名前は、VBAマクロの「配列:kyoukaSu」に記載されている必要があります。
従い、VBA配列の「教科名」は実状に合わせ加筆修正して下さい。
尚、この配列順で生徒別シートへ成績が転記されます。
3.生徒シート
　無ければ生徒IDをシート名として自動生成します。
　即ち生徒別シートは事前に用意する必要は有りません。

※Excel2000,2003,2007,動作確認済みです。
▼下記をコピー張付けして試行してみて下さい。
　特記:回答内容は2000文字以内のようです…回答内容が分割されますが全て繋いで下さい。
'---------------------------------------------------------------------
Option Explicit
Option Base 1

Sub データ振分()
Dim myDic As Object
Dim myKey As Variant
Dim myVal As Variant
Dim x As Variant
Dim i As Long
Dim xxRow As Long
Dim r, c As Long
Dim mySh As Worksheet
Dim myFlg As Boolean
Dim lastRow As Long
Dim lastCol As Long
Dim myL As Integer
Dim myCnt As Long
Dim BaSheet As String
Dim kyouka As Variant
Dim kyoukaSu As Long
Dim kyoukaNo As Long
Dim rtn As Integer

'▼(1)教科名を配列に格納
kyouka = Array("試験日", "国語", "数学", "英語", "□□", "□□") '…★定数(教科を宣言する)
kyoukaSu = UBound(kyouka)

Application.ScreenUpdating = False '…画面更新停止
BaSheet = ActiveSheet.Name '…教科元シート名get

'▼(2)アクティブSheet名が教科名と同じかを評価する

お礼

その節はお世話になりました。
私のために、こんなにもよくして頂いて、誠に恐縮です。
次回、また質問することがありましたら、その際にも色々と教えてください。