GRANTDREAM ~copine~ » ファイルをまとめるマクロ
こんにちは！「GRANTDREAM」です 😛 今回はExcelの使用方法についてご紹介致します。 会社でExcelを使用してファイルを作成されている方は多いようですが、沢山のファイルをひとまとめにするのは大変ですよね。 たとえば毎月の売上表を月ごとにExcelで作成していたとします。 この月ごとのExcelファイルを一つのExcelファイルにまとめてしまいたい場合はどうすればよいのでしょうか。（下記図参照） ひとつひとつファイルを開きシートのコピーを取って別のExcelファイルに貼り付ける方法もあります。 ファイルの数が少ない時はこの方法でも大丈夫ですが、数が多くなると作業が大変です。 そこで、今回はExcel2007のマクロを使って複数のファイルを一度で一つのファイルにまとめる方法をご紹介します。 ※今回は例として「1月売上」「2月売上」「3月売上」「4月売上」の4ファイル内それぞれの
複数のブックを新しいブックのSheet1にまとめたい
VBエディターの起動はご存知でしょうか ツールー＞マクロー＞VBエディター で起動します。 標準モジュールを挿入します。 エディターの 挿入ー＞標準モジュール でVBA記述する部分ができます。 下をコピイして貼り付けてください。 Sub Sample1() Dim buf As String, i As Long Dim j buf = Dir(Sheets("Sheet1").Range("A1").Value & "\*.xls") Do While buf <> "" Workbooks.Open Worksheets("Sheet1").Range("A1").Value & "\" & buf Sheets("Sheet1").Range("A1:J1000").Copy ThisWorkbook.Activate Range("A65536").End(xlUp).Offset
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
