エクセルAとエクセルBで同じ項目があった場合Bの内容をAにコピーする。 - Office系ソフト - 教えて！goo

#1　です。

もしかして、お門違いの回答でしたか？
＃２で提示したマクロは、フィルターオプションの設定をマクロで実現した様な内容です。（EXCELブックは、ご指摘どおり別々にしています）
つまり、シートCのA2セル～An(nは最大行)セルに含まれる学校名で、シートBのA2～An(nは最大行)の学校名を検索し、発見できた場合は、シートAのA～Eに発見したシートBのA～Eの対応項目を順次コピーしていくマクロ処理です。

質問の内容で
>エクセルのシートAで実行した場合、エクセルシートAとエクセルシートBで同じ項目がある場合、
>エクセルシートBの内容をエクセルシートAにコピーします。
コピー例：
>エクセルシートBとAで同じ「学校名」という項目があった場合、
>エクセルシートBの「学校名」の下「A2」からしたの文字列全部を
>エクセルシートAの「学校名」の下「A?」にコピーします。

つまり、シートAの学校名でシートBの学校名を検索し、発見した場合は
？？？…ここが理解し難いのですが、

説明している、「A2」や「A?」はセルのアドレスではなく、
セル内に格納されている文言に含まれていますか？
そうだとするともっと複雑な処理になると思います。

ブックやシート別の各セルの状態と欲しい結果のシート状態を例示いただければ、質問者様のやりたい事が判ると思います。

通報する

#1です。

マクロならこんな感じでしょうか。

ブックA、B、Cにそれぞれ"SheetA","SheetB","SheetC"があるとして、
各ブックは開いておきます。

"SheetC"のＡ列に検索する学校名を入力して、マクロを実行します。

Sub myFind()

On Error GoTo err

Dim stA As Worksheet
Dim stB As Worksheet
Dim stC As Worksheet

Set stA = Workbooks("TestA.xls").Sheets("SheetA")
Set stB = Workbooks("TestB.xls").Sheets("SheetB")
Set stC = Workbooks("TestC.xls").Sheets("SheetC")


'最大格納行数を求める
Dim stAmaxRow As Long
Dim stBmaxRow As Long
Dim stCmaxRow As Long

stAmaxRow = stA.Cells(stA.Rows.Count, "A").End(xlUp).Row
stBmaxRow = stB.Cells(stB.Rows.Count, "A").End(xlUp).Row
stCmaxRow = stC.Cells(stC.Rows.Count, "A").End(xlUp).Row


Dim R As Long
R = 2
While R <= stCmaxRow

'シートCのA列の学校名でシートBの学校名を検索
Dim nmRng As Range
Set nmRng = stB.Range("A2:A" & stBmaxRow).Find(stC.Cells(R, "A").Value, LookIn:=xlValues)

If Not nmRng Is Nothing Then
'発見した。
stAmaxRow = stAmaxRow + 1
stA.Cells(stAmaxRow, "A").Value = stB.Cells(nmRng.Row, "A") '学校名のコピー
stA.Cells(stAmaxRow, "B").Value = stB.Cells(nmRng.Row, "B") 'クラス数のコピー
stA.Cells(stAmaxRow, "C").Value = stB.Cells(nmRng.Row, "E") '生徒数のコピー
stA.Cells(stAmaxRow, "D").Value = stB.Cells(nmRng.Row, "C") '男子のコピー
stA.Cells(stAmaxRow, "E").Value = stB.Cells(nmRng.Row, "D") '女子のコピー

End If

R = R + 1

Wend

stC.Activate

Set stA = Nothing
Set stB = Nothing
Set stC = Nothing

Exit Sub

err:
MsgBox Error
End Sub


※上記のブック名、シート名は適当に置き換えてください。
※行数の可変？には対応していませんが、
シートBの検索開始行は「Set nmRng = stB.Range("A2:A"　～」の"A2"を変更することで検索開始位置を動的に変更可能になります。
また、シートAへの格納開始位置は
「stAmaxRow = stA.Cells(stA.Rows.Count, "A").End(xlUp).Row」で現在の格納行の最後＋１から格納しています。
「stAmaxRow = stC.cells(行,列)」などに変更することで格納
位置を動的に変更できると考えます。

通報する

こんにちは。

やりたいことが良く理解できないのですが、

シートBのデータからシートCで指定した条件（学校名）で検索し
シートAに抽出する事で良いのであれば、フィルターオプションの設定で抽出可能です。

たとえば、
＜SheetA＞
　　　A　　　　　B　　　　　　　C　　　　　　　D　　　　　　E　
┌──────────────────────────────
1│学校名　　　　クラス数　　　生徒数　　　男子　　　　女子
2│
3│
4│

＜SheetB＞
　　　A　　　　　B　　　　　　C　　　　　　D　　　　　　E　　
┌─────────────────────────────
1│学校名　　　クラス数　　　男子　　　　女子　　　生徒数
2│A中学　　　４クラス　　　　60人　　　　60人　　　120人
3│B中学　　　５クラス　　　　70人　　　　80人　　　150人
4│C中学　　　１クラス　　　　10人　　　　20人　　　30人

＜SheetC＞
　　　A　　　　　　B　　　　　　C　　　　　　D　　　　　　E　
┌──────────────────────────────
1│学校名　　　　クラス数　　　生徒数　　　　男子　　　　　女子
2│B中学
3│
4│

上記状態で、シートAを表示させた後、

(1)メニューから「データ」ー「フィルターオプションの設定」を選択。
⇒フィルターオプションの設定ダイアログが表示されます。

(2)フィルターオプションの設定ダイアログで
　・「指定した範囲」を選択
　・リスト範囲には「SheetB!$A$1:$E$4」
　・検索条件範囲には「SheetC!$A$1:$E$2」
　・抽出範囲には「SheetA!$A$1:$E$1」
(3)「OK」ボタンを押下します。

シートAに検索結果が抽出できます。

＜SheetA＞
　　　A　　　　　　B　　　　　　C　　　　　　D　　　　　　E　　
┌──────────────────────────────
1│学校名　　　　　クラス数　　　　生徒数　　　男子　　　女子
2│B中学　　　　　５クラス　　　　　150人　　　70人　　　80人
3│
4│

※　検索対象のデータ行数が1000行ある場合（シートBが1000行の場合）は、リスト範囲の「SheetB!$A$1:$E$4」を「SheetB!$A$1:$E$1000」に変更してください。

通報する