エクセル 複数シートのデータを1シートにまとめるマクロ

質問

エクセルの複数シートにデータがあります。同じ条件の人のデータだけをひとつのシートにまとめたいのですが、マクロを教えていただけますでしょうか。それとも、マクロ以外に良い方法がありますか？　エクセル初心者なので、あたりまえのことも知らないかもしれません。。。　
【データ】
●シート１からシート20まで、同じ配列でデータがあります。
●１行目は見出しです。２行目から１人づつのデータです。（多くても65行までと思っています。）
●A列に到達度、B列に出欠をいれました。
●C列からM列が氏名、課題、その他のデータです。
●リストはシート21にあります。
　【こんな作業でしょうか？】
●シート１から20で　A列が「C」または「D」ならば　その行のA列からM列をコピーして　シート21のA列からM列に形式を値にして張り付ける
●シート１から20で　B列が「欠」ならば　その行のA列からM列をコピーしてシート21のA列からM列に形式を値にして張り付ける
（っというのが私の乏しい知識で考えた方法なのですが、これでは不具合がでますか？　もちろん、この方法じゃなくもっといいのがあれば、それをやってみたいです。）

回答No.1

Wendy02 · ベストアンサー

コードはかなり簡単なのですが、こういうのは、環境の違いなのか、理由が分からない失敗がありますので、十分に注意して行ってください。私は、この手のワークシートを駆使したものは、あまり自信がありません。

Sub CopytoSheet21()
　Dim i As Long, j As Long, k As Long
　Dim TotalSheet As Worksheet
　Set TotalSheet = Worksheets("Sheet21")
　k = 2 'TotalSheet の最初の行
　Application.ScreenUpdating = False
　'Sheet21 のデータの消去 B1から、以下を消す
　TotalSheet.Range("B1").CurrentRegion.Offset(1).ClearContents
　For i = 1 To 20
　　With Worksheets("Sheet" & i)
　　　For j = 2 To .Range("A65536").End(xlUp).Row
　　　　If StrConv(.Cells(j, 1).Value, vbUpperCase) = "C" Or _
　　　　　StrConv(.Cells(j, 1).Value, vbUpperCase) = "D" Or _
　　　　　.Cells(j, 2).Value = "欠" Then
　　　　　.Cells(j, 1).Resize(, 13).Copy
　　　　　 TotalSheet.Cells(k, 1).PasteSpecial Paste:=xlValues
　　　　　 Application.CutCopyMode = True
　　　　　k = k + 1
　　　　End If
　　　Next j
　　End With
　Next i
　Application.ScreenUpdating = True
　Set TotalSheet = Nothing
End Sub

お礼

ありがとうございました。使わせていただきます。コードは簡単って書いてありますが、マクロを組める頭がある人ってすごいと思います！