エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
複数のシートにまたがるデータをひとつのシートにまとめるには(VBA)
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
複数のシートにまたがるデータをひとつのシートにまとめるには(VBA)
"統合"という名前のシートに、他のすべてのシートのリストデータを貼り付けます。 各シートのリストはA... "統合"という名前のシートに、他のすべてのシートのリストデータを貼り付けます。 各シートのリストはA列から始まっているものとします。(違う場合はコードを修正してください) Sub test01() Dim sh As Worksheet Dim lr As Long, tlr As Long For Each sh In Worksheets If sh.Name <> "統合" Then lr = sh.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row sh.Rows("1:" & lr).Copy tlr = Sheets("統合").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Sheets("統合").Range("A" & tlr + 1).PasteSpecial Application