Excel2000を使って、出庫実績表を作っています。
その表は、注文番号ごとにシートを分けて管理しています。
現在シートは10枚程度です。
各シートのフォーマット(項目名・開始位置・書式など)は全て同じですが、
データの個数(行数)はバラバラです。
これらのシートの内容を、元のシートはそのままにして、
同じブック内の新しいシートに1つにまとめたいのです。
この時、特に並べ替え・集計などは必要無く、
ただ、シート1の内容の下にシート2の内容、その下にシート3の内容...
といった感じで、ただデータを下に続けてコピーさせたいだけです。
(もちろん、シート2からの項目名は要りません。データの内容のみのコピーです)
簡単に出来る方法は無いでしょうか?
ご教授いただきたく、よろしくお願いします。m(__)m
No.4ベストアンサー
- 回答日時:
No.3 ですが、何回実行してもいいようにしました。
見出しが複数行あってもいいように、データ先頭行(見出しの下)を
指定するようにしました。(3行目で指定)
Sub MkAllDataSheet()
Dim N As Integer
Const DataTopRow = 2 'データの開始行を指定
Application.DisplayAlerts = False
For N = 1 To Worksheets.Count
If Worksheets(N).Name = "全データ" Then
Worksheets(N).Delete
Exit For
End If
Next N
Application.DisplayAlerts = True
Worksheets(1).Copy Before:=Sheets(1)
ActiveSheet.Name = "全データ"
For N = 3 To Worksheets.Count
With Worksheets(N)
.Range(.Rows(DataTopRow), .Rows(DataTopRow).End(xlDown)).Copy
End With
Rows(Range(Rows(1), Rows(1).End(xlDown)) _
.Rows.Count + 1).Insert Shift:=xlDown
Next N
Application.CutCopyMode = False
Range("A1").Select
End Sub
ja7awuさん、こんにちは。
すごいマクロを組んで頂いて、感激です!(;O;)
これで、いちいちコピペしなくてすみますね。
今後活用させて頂きます。
本当にありがとうございました!m(__)m
No.3
- 回答日時:
内容から察すると、データ範囲行だけをコピーして新しいシートに
まとめる ということだ思います。
下記のコードを実行すると一番左側に「全データ」というシートが出来ます。
一応、操作手順を書いておきます。
1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。
3.モジュールウィンドウに下記コードをコピーして貼り付けます。
4.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
5.実行するときは、メニューから[ツール]-->[マクロ]-->[マクロ]で
「MkAllDataSheet」を指定し、[実行]ボタンを押します。
Sub MkAllDataSheet()
Dim N As Integer
Worksheets(1).Copy Before:=Sheets(1)
ActiveSheet.Name = "全データ"
For N = 3 To Worksheets.Count
With Worksheets(N)
.Range(.Rows(2), .Rows(2).End(xlDown)).Copy
End With
Rows(Range(Rows(1), Rows(1).End(xlDown)) _
.Rows.Count + 1).Insert Shift:=xlDown
Next N
Application.CutCopyMode = False
Range("A1").Select
End Sub
No.2
- 回答日時:
こんにちは。
マクロなら、、
下記はコピーする表のタイトル行先頭が G5 の例
Sub aa()
Const myRow = "G", myCol = "5"
Dim LRow As Long, sCnt As Integer, i As Integer
Dim cSheet As Worksheet, rRange As Range
Application.ScreenUpdating = False
sCnt = Worksheets.Count
Worksheets(1).Copy after:=Worksheets(sCnt)
Set cSheet = ActiveSheet
For i = 2 To sCnt
Set rRange = Worksheets(i).Range(myRow & myCol).CurrentRegion
Set rRange = rRange.Offset(1, 0). _
Resize(rRange.Rows.Count - 1, rRange.Columns.Count)
rRange.Copy
LRow = cSheet.Range(myRow & "65536").End(xlUp).Row + 1
cSheet.Range(myRow & LRow).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Next i
End Sub
papayukaさん、はじめまして。
すごいぃ、マクロをありがとうございます!(>▽<)!!
やはりこういう作業っていうのはマクロになるんですね。
早速実行させていただきます。
ありがとうございました。m(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
「シートを削除しますか」のメ...
-
ACCESSのVBAにてExcelのシ...
-
エクセルマクロ シートの追加
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
UserForm1.Showでエラーになり...
-
配列数式の解除
-
Excel マクロ VBA プロシー...
-
教えて下さい
-
メッセージボックスのOKボタ...
-
String""から型'Double'への変...
-
実行時エラー'-2147467259(8000...
-
TERA TERMを隠す方法
-
マクロで"#N/A"のエラー行を削...
-
ExcelのVBA。public変数の値が...
-
VBAでfunctionを利用しようとし...
-
End Sub が必要です。
-
【エクセル】測定時間がバラバ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのVBAにてExcelのシ...
-
excelのInitializeイベントとAc...
-
Excelマクロ 別シートへ連続コ...
-
エクセルVBAで名前の決まってい...
-
「IsText」の使い方を教えてく...
-
EXCELで1シートのデータを複数...
-
同一ブック内・別シートの内容...
-
excel
-
VBAでシートをまたぐ処理の方法
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
UserForm1.Showでエラーになり...
-
配列数式の解除
-
メッセージボックスのOKボタ...
-
教えて下さい
-
String""から型'Double'への変...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
おすすめ情報