A.xlsというExcelブックにSheet1~Sheet35があります。
各シートには以下のような同じフォームのデータが入っています。
XXXX部分と生徒数はデータごとに異なります。
生徒氏名 国語 数学 理科 社会 英語
XXXX XX XX XX XX XX
XXXX XX XX XX XX XX
: : : : : :
XXXX XX XX XX XX XX
XXXX XX XX XX XX XX
XXXX XX XX XX XX XX
いま、Sheet1の前に「併合」というシートをつくり、
そのシートに
Sheet1のデータ
Sheet2のデータ
Sheet3のデータ
:
Sheet35のデータ
というようにすべてのデータを縦に結合した結果を出力したいと考えています。
これを書くためのVBAコードを教えていただけないでしょうか。
よろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
「併合」と言うシートを作成した後に実行。
Sub try()
Dim ws As Worksheet
Dim rr As Range, rs As Range
Set rr = Worksheets("併合").Range("A1")
For Each ws In Worksheets
If ws.Name <> "併合" Then
Set rs = ws.Range("A1").CurrentRegion
rs.Copy rr
Set rr = rr.Offset(rs.Rows.Count)
End If
Next
Set rr = Nothing
Set rs = Nothing
End Sub
ご参考まで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
- 日本語 「徒歩圏内」「徒歩圏」の違い。ニュアンスも含め知りたい 5 2022/06/19 10:05
- 数学 5組のデータ (xx,yy) = (1.0 , 1.1), (2.0 , 1.0), (3.0 , 2 2023/01/09 16:52
- その他(法律) 肩書きを偽ってメールを送った場合、不正アクセス禁止法違反になるのか? 1 2023/02/18 08:35
- 英語 英語の原級の文法で 1 2022/11/05 21:12
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Yahoo!メール yahooメールアドレスはプロパイダ変更後も使えますか? 1 2022/07/05 20:53
- 英語 未来進行形の使い方 5 2023/04/12 08:20
- Excel(エクセル) Excelで一つのセルを2行で表示 4 2022/07/01 22:07
- iPhone(アイフォーン) web上の電話番号リンクの桁区切りが、iPhoneだと特定電話番号でおかしくなるのを解決したい 1 2023/03/28 14:27
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
excelの不要な行の削除ができな...
-
VBAで CTRL+HOMEの位置へ移動...
-
Excelでセル内の不特定位置の(...
-
エクセルで複数行のデータを1列...
-
ファンモータが作動しない。
-
エクセルで行の自動非表示の方法は
-
他のシートの一番下の行データ...
-
Excel 売上管理シートに入力し...
-
エクセルのファイルが8MBも!!
-
EXCEL 複数行のデータを1行にま...
-
EXCEL の表を一行ずつシートに...
-
エクセルで複数の条件を抽出し...
-
CMOS-IC CD4007UBEのnmosfetの...
-
EXCEL VBA 担当者毎にファイル作成
-
【Excel】マクロでグラフ系列に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
excelの不要な行の削除ができな...
-
Excelで日付変更ごとに、自動的...
-
VBAで CTRL+HOMEの位置へ移動...
-
トランジスタの選び方
-
EXCELで2つのファイルから重複...
-
EXCEL 複数行のデータを1行にま...
-
他のシートの一番下の行データ...
-
オートフィルタで抽出したデー...
-
エクセルのカメラ機能について
-
(VBAにて)日付でデータを抽出す...
-
エクセルで名簿を50音で切り分ける
-
別々のシートの表をピボットテ...
-
Excel 売上管理シートに入力し...
-
Excelマクロ 差分抽出の方法が...
-
EXCEL の表を一行ずつシートに...
-
エクセルVBAで、特定文字から始...
おすすめ情報