- ベストアンサー
エクセル VBA 一つのシートにまとめたい
TEST(1).xls～TEST(5).xlsのそれぞれ、A5～Z100までを、一つの ファイルのシートにまとめるのはどうすればいいでしょうか。 まとめた、エクセルシートは、TEST(1)のZ列のあとに、TEST(2)のA列の内容が続いていくという感じです。 よろしくお願い致します。
- yuu1236
- お礼率80% (38/47)
- Excel（エクセル）
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
No1です。訂正があります。 × Workbooks(Filename(i)).open ○ workbooks.open Filename:=ThisWorkbook.pass & "\" & Filename(i) もうひとつ、Copyの後のDestinationは改行せずcopyの後ろに続けて下さい。
その他の回答 (1)
- High_Score
- ベストアンサー率25% (45/176)
Sub Test() Dim Filename(5) As String Dim i As Long, j As Long Filename(1)=Test1.xls Filename(2)=Test2.xls '全ファイルを記載する j=1 For i=1 to 5 Workbooks(Filename(i)).open Sheets("Sheet1").Range("A5:Z100").copy Destination:=ThisWorkbook.Sheets("Sheet1") .Cells(j, 1) j=j+96 Workbooks(Filename(i)).close savechanges:=False Next i End sub
お礼
遅れて申し訳ありませんでした。ありがとうございます！
関連するQ&A
- VBA 一つのシートにまとめる
下記の条件でVBAではどうすればいいのか、教えて頂けませんでしょうか・ TEST1.xls TEST2.xls TEST3.xls ・上記には、それぞれDATA1シートとDATA2シートがあります。 ・このうち、3つのブックのDATA1シートのB列からT列の２行目から最終行までを、matome.xlsのmatomeシートの最終行から追加していきたいのです。 仮に、matome.xlsのmatomeシートの最終行（データがある行）が50行目だった場合、 TEST1.xlsのB列からT列の２行目から最終行を51行目に貼り付け、それが75行目までだったとすると、TEST2.xlsのB列からT列の２行目から最終行のデータは76行目からといった感じです。 わかりづらくて申し訳ありませんが、よろしくお願い致します。
- ベストアンサー
- Excel（エクセル）
- エクセルVBAについて (データのマッチング)
過去ログで解決できなかったのでここに書かせていただきます。 エクセルのＶＢで下記のプログラムを作成したいのですがうまくマクロが組めません。 ファイル名：TEST01.xls ファイル名：TEST02.xls があります。 TEST01.xlsにあるＡ列のデータとTEST02.xlsのＡ列にあるデータが一致したおり、かつTEST02.xlsのＤ列のデータが『×』の場合のみ、TEST01.xlsのＢ列に固定の文字(test)を入力し、TEST01.xlsのＣ列に入力されているデータを削除するプログラムを作りたいです。 ご存知の方がいらっしゃれば、ご教授よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- Excel VBA別ブックのシートをコピーするには
Excel2010のVBAで別ブックのシートをコピーしてくる方法 Excelファイル(C:\test\BOOK2.xls)のシート名が TESTというシートを自分のExcelファイル(C:\doc\BOOK1.xls)に コピーするにはどのように記述すればよいのでしょうか。 ・コピー先:自分のExcelファイル(C:\doc\BOOK1.xls) VBAのコードがあるファイルです ・コピー元:C:\test\BOOK2.xlsのTESTシート なお、TESTシートを持つ同じ名前(BOOK2.xls)のファイルが 別フォルダにもあります Workbooks( )の引数にファイル名(BOOK2.xls)は指定できるのですが、 フルパス名(C:\test\BOOK2.xls)で指定できないので困っています。
- ベストアンサー
- Visual Basic
- エクセル VBA データのマッチング
エクセルのＶＢで下記のプログラムの作成をしたいのですがうまくマクロが組めません。 ファイル名：TEST01.XLS ファイル名：TEST02.XLS があります。 TEST01.XLSにあるＡ列のデータ、TEST02.XLSにＧ列にあるデータが一致した場合のみ、一致した行にあるTEST01.XLSのＢ列にある４桁のコードを一致したTEST02.XLSのＬ列に表示させるプログラムを作りたいです。 すみませんが回等お願いできませんか。
- ベストアンサー
- オフィス系ソフト
- PDFとエクセルシートを連続印刷する方法
エクセルVBAを利用して、PDFとエクセルファイル（シート名指定あり）の混載するリストを参照し、 連続印刷する方法を教えてください。 印刷リストとして、 A列にファイルタイプ（xlsかPDFか） B列にファイル場所 C列にファイル名 D列にシート名 E列にする/しないの印刷フラグ を記し、 PDFの場合はファイル場所とファイル名を参照して印刷、 xlsの場合はシート名まで指定して印刷するという処理を書きたいのです。 添付の画像を参照すると、印刷するのは E:\test\111.pdf E:\test\222.pdf E:\test\222.pdf E:\test\Book1.xlsのSheet1 ・ ・ ・ となります。 A列に「判別」としたのは、PDFかエクセルかを見分けるのに必要かなと思って設けました。 リストはイメージなので、必要であれば編集しできます。 全てのファイルをPDFにしてしまえば良いのですが、 それは理由があってできないのです。 VBA初心者で、エクセル2010を使用しています。 どなたかご存じでしたら、ぜひお教え下さい。 よろしくお願いします。
- 締切済み
- Visual Basic
- エクセルVBAで別のファイルのセルの中身を表示したい
エクセルVBAを使って別のファイルのセルの中身を表示させようとしているのですが思うように出来ません。 イメージとしては、シートのA列に名前、B列に点数が入力されている「テスト.xls」というファイルがあるのですが、 この「テスト.xls」のB列に入力されている点数が100～80に該当する名前を「優.xls」というファイルに表示させていきたいというものです。 つたない質問文で申し訳ありませんが、 どなたか回答よろしくお願いします。
- 締切済み
- オフィス系ソフト
- excel vbaでVlookup的な集計したい
お世話になります。 デスクトップに[集計]というフォルダ作って、その中に[集計.xls]というファイルがあります(画像参照) さらに[個別]というファイルダ内に[実績A.xls]というファイルがあります。 実際には実績B.xls、実績C.xlsと複数ファイルが存在します。 集計.xlsにボタンを作ってクリックすると下記のような動きを実現したいのです。 [個別]フォルダ内の実績A.xlsファイルを開いて[集計.xls]のA列(支店名)、B列(商品番号)と合致したデータを次のように挿入していきたいのです。 集計.xls 実績A.xls C列 ← D列の値 D列 ← E列の値 E列 ← F列の値 F列 ← G列の値 この作業を実績A.xlsファイルの全シートに対して実施したいのです。(マスターというシートは抜かして左から右へ)。全シートREADし終わったら閉じて次の実績B.xlsファイルを開いて、また同じ作業を繰り返し、[集計.xls]もA2のデータから再びREAD、という動きです。 わかりにくい説明で大変恐縮ですが、業務で求められ困っております・・ どなたかご教授いただけますでしょうか。 何卒よろしくお願い致します。 Excel2013 Windows7
- ベストアンサー
- Excel（エクセル）
- 『エクセルファイルを別のエクセルファイルに反映』
こんにちは。初心者です。 エクセルファイル「購入品-１.xls」があります。そのファイル内には各業者から購入したリストが複数入力してあります。業者Ａ～業者Ｚまであるとします。「購入品-１.xls」を更新すると、業者Ａのリストだけを、別のエクセルファイル「購入品-２.xls」に反映されるようにしたいのですが、どうすればよろしいでしょうか？ ご回答宜しくお願いします。 「購入品-１.xls」のSheet2のＦ列が業者を判別する部分で、Ａ列～Ｍ列までを「購入品-２.xls」のSteet1に反映したいです。 エクセル２００３です。
- ベストアンサー
- オフィス系ソフト
- エクセルでデータ.xlsから１行毎に元シート.xlsへコピーし１行毎に多数ファイルを作成したい。
現在、以下のような繰り返し作業をカット＆ペーストで何度も行わないといけません。 手が疲れて困っています。 エクセルマクロで簡単にできる方法を教えてください。 以下の例のようにデータ.xlsは、一番上の行に元シート.xlsに差込む位置、 次の行から１行ごとのデータがあります。 データ.xls A B C D E F 1 A2 A3 B3 C2 D2 D3 <- 元シート.xlsにコピーする位置 2 test 123 456 789 012 345 3 test2 456 789 012 345 678 4 test 456 123 789 012 345 ... 元シート.xlsは固定文字や罫線等があります。 元シート.xls A B C D 1 ------------------------------ 2 3 4 abcdefg 9876543 5 ------------------------------ 元シート.xlsに、データ.xlsの１行ごとのデータを、指定したセルに入れ、 A列の名前で多数のファイルを作成したいのです。 ただし、A列で同じファイル名がある時は、ファイル名の後に_2等を付けて保存したいのです。 以下のような多数のファイルを自動的に作成する方法を教えて下さい。 宜しくお願い致します。 test.xls ------------------------------ test 789 012 123 456 345 abcdefg 9876543 ------------------------------ test2.xls ------------------------------ test2 012 345 456 789 678 abcdefg 9876543 ------------------------------ test_2.xls ------------------------------ test2 789 012 456 123 345 abcdefg 9876543 ------------------------------ ...
- ベストアンサー
- オフィス系ソフト
- エクセルマクロの質問です。
例えば、A.xlsというファイルに01.csv，02.csv，・・・，20.csvといういくつかのファイルからデータを取り出すのですが、A.xlsのシート１の1列目に01.csvの1列目を貼り付けて、01.csvの2列目はA.xlsのシート２の1列目に貼り付けるようにシートをずらして行って、02.csvの1列目はA.xlsのシート１の2列目、02.csvの2列目はA.xlsのシート２の2列目というようにしたいのですが、どのようなプログラムがよいのでしょうか？ エクセルマクロ初心者なので説明が不十分かも知れませんがよろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
お礼
遅れて申し訳ありませんでした。ありがとうございます！