EXCEL2010マクロSeetの結合

質問

始めまして、宜しくお願い致します。EXCEL2010のマクロで以下の事をしたいと思っております。
一つのBook内に複数Seetがあります。Sheetの代一行目には、氏名、試験結果の点数があります。通常EXCELを開くとSeetが3つ出来ます。Seet4・・・・とSheetを増やしていきます。増やすシートの数は、クラス事に国語、算数、理科と、言う具合に増えていきます。列に関しては、60点以上と言う制限があります。ですから、Sheetは、試験科目毎点数に依存しますのでまちまちです。そして、Sheet4から始めます。行は固定であります。これらのSheetを一つのSheetにまとめて新しいBookを作りたいと思います。以下にマクロを書いてみました、しかし、列の最大値を取って、別のSheetのコピーするところで、結果として、で出来ませんでした。どなたかお分かりになる方何卒アドバイスをお願い申し上げます。
Dim sheetsuu As Integer
sheetsuu = ActiveWorkbook.Sheets.count
Sheets(sheetsuu).Select
Sheets.Add
For yy = sheetsuu - 3 To sheetsuu Step 1
MaxRow = Range("A1").End(xlDown).Row '列の最終列の算出。
MaxCol = Range("A1").End(xlToRight).Column '行の最終行の算出。
Sheets("sheetsuu").Select
Rows(MaxRow, MaxCol).Select
Selection.Copy
Application.CutCopyMode = False

回答No.2

keithin · ベストアンサー

だから。
＞３番目は、A列B列は、コピーしてもしなくても構いません

しなくていいなら、いったい何をコピー「したい」のですか。目に見える結果としてどうなってほしいのか、きちんと情報提供してくださいということです。

ヤリタイ事：
１．一番後ろに一枚シートを追加したい
２．使っていないSheet1,2,3はスキップして、４枚目の国語以降のシートについて
３．Ｂ列の得点が６０以上の生徒をコピーしたい
４．最後のシートに「下向けに」貼り付けていきたい。
　国語が６０点以上の子が１０人いたらまず１０行
　算数が２０人いたら次の２０行に

sub macro2()
　dim i as long
　dim n as long

　worksheets.add after:=worksheets(worksheets.count)
　range("A1:B1") = array("名前","得点")

　for i=4 to worksheets.count - 1
　　worksheets(i).autofiltermode = false
　　worksheets(i).range("A:B").autofilter field:=2, criteria1:=">=60"
　　worksheets(i).autofilter.range.offset(1).copy range("A65536").end(xlup).offset(1)
　　worksheets(i).autofiltermode = false
next i
end sub

それで。
＞すると、最後にSHeetZには、国語、算数、理科が全て60点以上の人が名人いるかが判ります。
＞また、同様に国語、算数だけが60点以上の人も探す事も出来ます。

マクロでできないかなーと考える「その前に」、まず手作業で「こういう結果が欲しいんだ」と一回実際にあなたの自分の手を動かし使って結果を作成してみると、何をどうしたらそういうのが作成できるか結構イメージがつかめます。
同時に、今考えていることでは「うまくいかないみたいだなぁ」ってのも見えてきて、二度手間三度手間を無くすことができます。

お礼

本当に有難う御座います。keithin様がおしゃる通り、自分てを動かして、
＞マクロでできないかなーと考える「その前に」、まず手作業で「こういう結果が欲しいんだ」と一回実＞際にあなたの自分の手を動かし使って結果を作成してみると、何をどうしたらそういうのが作成で＞きるか結構イメージがつかめます。
＞同時に、今考えていることでは「うまくいかないみたいだなぁ」ってのも見えてきて、二度手間三度＞手間を無くすことができます。
実際に手を動かしてイメージを作って再度投稿させて頂きたく宜しくご指導の程宜しくお願い致します。ヤリタイ事：であっております。これを参考にさせて頂いて、実際にマクロを動かしてみます。
本当に有難う御座います。

回答No.1

keithin

あなたの言いたかったこと、ヤリタカッタ事はこういう事ですか？

状況説明：
ブックにはSheet1、Sheet2、Sheet3があるけどその３枚のシートは使っていない
その後ろに「国語」「算数」「理科」などなどのシートを追加して使っている
各科目のシートには
Ａ１に氏名
Ｂ１に点数
と記入してあり、Ａ列とＢ列の２列を使っている
Ａ２：Ｂ２以下、つまり２行目以下に下向けに生徒の記録を列記している

ヤリタイ事：
１．一番後ろに一枚シートを追加したい
２．使っていないSheet1,2,3はスキップして、４枚目の国語以降のシートについて
３．Ａ：Ｂ列の使っているセル範囲をコピーしたい
４．最後のシートに「横向けに」貼り付けていきたい。
　国語のシートからはＡ：Ｂ列に
　算数のシートからはＣ：Ｄ列に
　理科のシートからはＥ：Ｆ列に
　のように。

手順：
ＡＬＴ＋Ｆ１１を押してＶＢＥ画面を出す
挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim i as long
　dim n as long
　worksheets.add after:=worksheets(worksheets.count)
　for i = 4 to worksheets.count - 1
　　n = worksheets(i).range("A65536").end(xlup).row
　　worksheets(i).range("A1:B" & n).copy range("IV1").end(xltoleft).offset(0, 1)
　　range("IV1").end(xltoleft) = worksheets(i).name
　next i
　range("A:A").delete shift:=xlshifttoleft
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押し、今登録したマクロを実行する。

あなたのやりたかったのと違う結果になったときは、説明の「状況説明」をよく読んで、ご自分の言いたかった事やりたかった事と「ここが違っている」をキチンと「目に見えるエクセルの姿」で説明してください。

補足

早々のご回答有難う御座います。keithinのおっやる通り、ヤリタイ事の1、２までは、あっております。
しかし、３番目は、A列B列は、コピーしてもしなくても構いません。しかし、４、の所で困っておりまして、ピポットテーブルとは違い、最後の新しいSHeet(ここでは仮にSHeetZと呼びます)に国語のSheet（60点以上の人の氏名などを)からn行をコピーして、次に算数のSheetからA列からm行を先ほどのSHeetZにコピーしたいのですが、SHeetZには、国語の60点以上の人の成績が埋まっているので、今度は、算数で60点以上の人の成績をn+1行目からコピーしていきます。今度は理科で60点以上の人をSHeetZに国語が60点以上人と算数が60点点以上の人の後の行にコピーします。すると、最後にSHeetZには、国語、算数、理科が全て60点以上の人が名人いるかが判ります。また、同様に国語、算数だけが60点以上の人も探す事も出来ます。しかも、体育、社会、とSheetも増やすことが出来る事が、私のやりたかった事です。状況説明が足りず大変申しわけありませんでした