最初の関数は、ワークシートの複数のExcelファイル（シート）を達成することであるExcelファイルに複数枚のシートにマージされ、新しいExcelワークシートの名前は、元のファイル名と同じです。
開発環境Excel2007、Excel2003はなく、できるはずです、Excel2000を使用するように見えることはできません。
コードは以下の通りである：
「関数：ワークブックのシートの第一の複数のワークブックシートの複数のマージは、新しいシートがブックの元の名前の名前に等しいです。
新しいテーブルをエクセル---新しいブックマークsheet1--右クリックし、[コードの表示-実行にコードをコピー--- -テーブルのマージを選択- OK
）サブBooks2Sheetsを（
「カスタムダイアログ変数
としてのFileDialogの薄暗いFD
設定されたアプリケーションはfd = .FileDialog（msoFileDialogFilePicker）
「新しいブックを作成し
たようにnewwbワークブックを暗く
設定newwb = Workbooks.Add
FDと
その後.SHOW = -1場合は
、単一のファイル変数を定義する」
バリアントとしての薄暗いvrtSelectedItem
「が定義され、ループ変数
として整数Iの薄暗い
I = 1
」高速起動
の各vrtSelectedItemで.SelectedItemsのために
ブックを開くために結合される'
としてのワークブックtempwb暗く
セットWorkbooks.Open = tempwbを（vrtSelectedItem）
「コピーシート
tempwb.Worksheetsは、（1）.Copy前に：= newwb.Worksheets（I）
の新しいワークブックのワークシート名コピーするブックファイル名、ここではExcel97-2003すなわち、XLSファイルに適用されますファイルには、Excel2007場合、XLSX変更する必要があります
（ ""、tempwb.Name、 "* .XLS"）newwb.Worksheets（I）.nameの= VBA.Replaceを
ブックを閉じるために結合されている」
のSaveChangesをtempwb.Close：= Falseの
I = +。1 I
次vrtSelectedItem
もしエンド
で終わる
の設定FD =何も
End Subの
各シートの名前を変更する合併テーブルの完了後に
注：アップ連結テーブルはありませんが、テーブルに新しいシートの空のテーブルを追加する - テーブル名を押した後、サマリー表を越えて移動するためにコピーされます
すぐにExcelのテーブル作業ページの複数の単一のシートをマージする方法
1.まず、ほとんどの前のページで新しいワークシートを作成します。
新しいシート表2.「右」と「コードの表示」を見つけ、マクロコンピューティング・インターフェースを参照してください。
3.マクロコンピューティング・インターフェースを表示するには、我々だけで実行するためにクリックしてください----以下のコードに次のコードをコピーする必要があります
SUB）（ブック内のすべての現在のシートをマージ
Application.ScreenUpdating = Falseの
Sheets.CountにJ = 1の場合
もしシート（J）.nameの<> ActiveSheet.Nameその後
X =範囲（ "A65536"）。終了（xlUp）.Row + 1
シート（J）.UsedRange.Copy細胞（X、1）
場合終了
次
レンジ（ "B1"）。を選択
Application.ScreenUpdating = Trueの
MsgBoxには、「ワークブック内のすべての現在のワークシートは、合併を完了しました！」、VbInformation、「プロンプト」
End Subの