A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>・各シートはMAXで100行くらいです。
シートごとに違います。>・エクセルのバージョンは2003です。
シートが40枚くらいならMAXで40,000行、Excel2003で扱える行数が65,536行ですからギリギリOK位の感じです。
>・行数が一定なら、簡単です。:行数は一定ではないです。
>・「絶対に空白でない列」があるならば:列は全て空白ではないです。
>End(xlUp)を使ってやると思うのですが。。。
お察しの通りEnd(xlUp)が便利です
Cells(Rows.Count, "A").End(xlUp).Row
を使って各シートの最終行を拾います。
[A65536].End(xlUp).Row
でもいいのですが、Excel2007対応のためです。(いずれにせよ一番下までデータを入れることはないというのが前提です。)
コピー先の行の取得も同様に行います。
後は各シートをでコピーして、コピー先の一番下に貼り付けるだけです。
以下は、同じフォルダにある”Book2”を開き、自分のシートに順次コピーするプログラムのサンプルです。
1行目はタイトル行と想定して、2行目からコピーします。
一様サンプルは示しましたが、利用は「自己責任」でお願いします。
このプログラムを使用して損害が生じても、私は一切の責任を負いません(悪意のあるプログラムではないのは、解読すれば分かると思います。結果が思い通りにならなくて損害が生じた場合でも責任は負わないという意味です)。
Sub シート統合()
Dim SourceBook As Workbook
Dim i As Long
Dim LastRow As Long
ThisWorkbook.Activate
Worksheets(1).Select
Cells.Clear
Set SourceBook = Workbooks.Open(ThisWorkbook.Path & "\Book1.xls")
For i = 1 To SourceBook.Worksheets.Count
With SourceBook.Worksheets(i)
.Activate
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Rows("2:" & LastRow).Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End With
Next i
ThisWorkbook.Activate
End Sub
No.2
- 回答日時:
こんにちは
>どなたか作っていただけないでしょうか?
ご質問の内容から、おおまかな状況は分かりました。
VBAならば多分出来ます。
ただし、実際のデータ無しに作ることは出来ませんし、責任が伴いますので、このサイトでプログラムを回答することは私には出来ません。
問題解決のためのアドバイスだけならば出来ます。
一番問題になるのは、各シートにあるデータの行数です。
・行数が一定なら、簡単です。
・「絶対に空白でない列」があるならば、
その列を使って最終行を拾うことも出来ます。
また、各シートのデータのおおまかな行数と、Excelのバージョンを教えてください。
あまりデーターの行数が多いと、Excelの仕様上、一枚のシートに収まらないことがあります。
この回答への補足
・行数が一定なら、簡単です。:行数は一定ではないです。
・「絶対に空白でない列」があるならば:列は全て空白ではないです。
・各シートはMAXで100行くらいです。シートごとに違います。
・エクセルのバージョンは2003です。
End(xlUp)を使ってやると思うのですが。。。
宜しくお願い致します。
目黒
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA シートを追加後に余分なシートを削除する、の意味 21 2022/05/19 22:46
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) 複数のブックをひとつのブック(複数のシートにまとめる)場合にシートとの順番について 5 2022/12/28 20:47
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) 複数のシートを一つのシートにまとめたい 左から3番目以降のシートのE列のセルに⚪︎が入っている行を抽 2 2022/09/18 18:42
- Excel(エクセル) マクロを教えてください 1 2022/11/28 14:52
- Visual Basic(VBA) 複数ブックの統合について Excel VBA 1 2022/05/13 09:48
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WEB上の表の列コピー選択方法は?
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
一つのシートの中に複数のペー...
-
メモ帳からエクセルに貼り付け...
-
Excelで検索結果をテキストボッ...
-
エクセルVBAで、行コピーを複数...
-
Excelピボットテーブルで 総計...
-
オートフィルタのリストを順番...
-
エクセルのリストから欠番を拾...
-
ピボットテーブル→参照が正しく...
-
Excelの数式のコピーで列移動で...
-
エクセルの列幅
-
エクセルの関数の使い方 繰越...
-
エクセルで空白行に上の行のデ...
-
マクロの記述をもっとシンプル...
-
Excel 表から値をさがして隣の...
-
Excel2010で行ごとの重複削除
-
ACCESSのデータをEXCELに貼り付...
-
エクセルに詳しい方、助けてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
一つのシートの中に複数のペー...
-
WEB上の表の列コピー選択方法は?
-
オートフィルタのリストを順番...
-
【エクセル】行挿入で数式もい...
-
エクセルで作成した縦に長い表...
-
Excelの数式のコピーで列移動で...
-
ピボットテーブル→参照が正しく...
-
Excelピボットテーブルで 総計...
-
エクセルVBAで、行コピーを複数...
-
メモ帳からエクセルに貼り付け...
-
Excel 表から値をさがして隣の...
-
エクセルのリストから欠番を拾...
-
エクセルの列幅
-
エクセルの関数の使い方 繰越...
-
エクセルに詳しい方、助けてく...
-
PDFからExcelに変換する時に「...
-
一太郎にエクセルの表を貼り付...
-
Excelで検索結果をテキストボッ...
-
エクセル シートのコピーをリ...
-
VBA csvを100万行ずつ各...
おすすめ情報