ファイル・ブック

エクセル ブック・ファイル結合・連結を簡単に解決しました。


エクセルの結合・連結をマスターしましょう!
エクセル 結合 連結 簡単・解決! Homeへ
ファイル・ブック

エクセルのファイル・ブックは、簡単にシート一枚一枚を結合・連結できます。


 ※ グラフシートは、連結できません。コメントを参照ください!

手順は、次の通りです。
1.最初、ひとつのEXCEL Bookを開きます。 他の全てのファイル・ブックのワークシートをこのファイルに結合します。

2.結合したいEXCEL Booksを順に開きます。

3.次のVBAコードで作成したマクロを実行します。

Sub merge_books()
For Each wb In Workbooks
If (wb.Name <> Workbooks(1).Name) Then
For Each ws In wb.Worksheets
ws.Copy After:=Workbooks(1).Worksheets(Workbooks(1).Worksheets.Count)
Next ws
End If
Next wb
End Sub


マクロの実行手順は、次の通りです。
(1) Alt + F11キーを押し、VBEエディターを起動します。
(2) 「挿入」−「標準モジュール」からコードウィンドウを開きます。
(3) 開いたウィンドウへ上記の VBAコードをコピー&ペーストします。
(4) マクロを実行すると、最初に開いたBOOKのワークシートの最右端の後に2番目以降に開いたBOOKのシートを結合します。
(5) マクロの実行方法は、EXCEL2003、2007で異なります。
    エクセル2003以前のバージョンの場合、「マクロ」−「マクロ」で MergeSheetsを選択し、実行ボタンを押します。
    エクセル2007バージョンの場合、「開発」−「マクロ」で MergeSheetsを選択し、実行ボタンを押します。

次の図は、最初に開いたEXCEL Bookです。
一つのシート「Start」があります。



次の図は、他の2つのEXCEL Booksを開き、上記のマクロを実行した結果です。
図のように、ワークシート「Start」の後に6枚のシートが追加されたことが分かります。





excelの結合・連結をマスターしましょう。


エクセル 結合 連結 簡単・解決! Homeへ
posted by Yy at 15:38 | Comment(8) | TrackBack(0) | ファイル・ブック | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
助かりました。すごい、信じられないほど素晴らしいです。早速HPを印刷して、スキャンして取り込んであります。ところで、作成済みのグラフなどは移動されないんですね。
エクセルに、最初からファイル結合機能がついていないのは重大な欠陥ですね。何はともあれ、感謝です。ありがとうございました。ヒロシ
Posted by Hiroshi at 2010年04月23日 22:58
コメントありがとうございます。
作成済みのグラフが、1つのシート内部のデータを使用し、
そのシート上にグラフを貼付した場合、結合できました。
グラフシートの場合、グラフのデータのセル範囲を指定する必要があるため、複雑になります。
その場合、手作業でグラフシートをコピーする方法が良いと思われます。
また、セル範囲の参照Bookを修正する必要があるかもしれません。
ーー以上ーー
サイト管理者(Yy)

Posted by Yy at 2010年04月24日 05:51
できました。ありがとうございます。以前は、シートコピーして、内部リンクを変更するのが手間で嫌でした。
ところでその際、シートのコピーをする際にも出た、「同じ名前がある、云々」のメッセージでOKボタンを何回押したかわからないほど押しましたが、これの解決方法はあるのでしょうか?
Posted by よしひろ at 2012年05月24日 19:41
よしひろ さま
コメント ありがとうございます。
Microsoft サポートに EXCEL 2002について解説がありました。
http://support.microsoft.com/kb/409329/ja
「Excel 2000、Excel 2002 で同じ名前を定義してあるシートをコピーするとエラーが発生する」

 なお、見えない「名前」があった場合、見えるようにする必要があるようです。
次のマクロで見えるように変更できますので、活用願います。
あらかじめ、作業する全てのEXCEL BOOKで処理します。

Public Sub Visualize_Names()
For Each w_Name In Names
If w_Name.Visible = False Then
w_Name.Visible = True
End If
Next
End Sub

コメント どうも、ありがとうございました。
(サイト管理者 Yy)
Posted by Yy at 2012年05月25日 05:40
この方法大変助かります、ありがとうございます。しかし、一つ不具合が生じてしまいまして、あるセール中の文字数が多くて、結合すると一部なくなってしまいます。最大文字数が255まで?しか取れなくて、解決方法があるのでしょうか。
Posted by たかふみ at 2012年06月13日 17:04
たかふみ さま
コメント ありがとうございます。

 Microsoft サポート ホーム に次の文書がありました。
文書番号: 211580 - 最終更新日: 2007年2月20日 - リビジョン: 6.0
「Excel のセルに表示されるのは 1,024 文字のみ」
 Microsoft Excel では、1 つのセルに 32,767 文字まで入力することができます。
ただし、セル内の文字数が 1,024 を超える場合は、次の規則が適用されます。
1.約 1,024 番目より後の文字はセルに表示されません。
   ただし、セルを編集または選択したときに、数式バーには表示されます。
2.約 1,024 番目より後の文字は表示されませんが、ワークシート関数 (RIGHT 関数や MID 関数など)
  およびマクロ コマンド (Characters プロパティなど) で、
  それらの文字を検出および操作することはできます。
3.1,024 字を超える文字が含まれるセルをコピーし、別のセルに貼り付けた場合は、
  すべての文字がコピー先のセルに貼り付けられます。
   ただし、約 1,024 番目より後の文字は、コピー先のセルに表示されません。
  約1,024 番目より後の文字は印刷されず、印刷プレビューにも表示されません。

以上です。
詳細は、サーポートサイトの文書を参照願います。

コメント どうも、ありがとうございました。
(サイト管理者 Yy)
Posted by Yy at 2012年06月14日 06:36
エクセルシートの結合連結とエクセルブックの結合連結をしたいのですが、win10にアップグレードしたためにできません。何か良い方法があれば教えてください。
Posted by 青木紀子 at 2017年05月10日 12:41
青木紀子 さま

コメントありがとうございます。
Microsoft コミュニティを参考にいたします。
そこには、次のテーマがありました。

win10にアップデートしたらexcelのタスクバーへのファイル表示が正常に表示されない

このような不具合がwin10にあるようです。

いまのところ、ここまで分かりました。
詳細が判明した場合、ブログのここをアップデートいたします。

コメント、どうもありがとうございました。

サイト管理者(Yy)

Posted by Yy at 2017年05月14日 10:47
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。