あなたは、このVBAコードを使用することができます。
Sub copy_all()
'
' copy all sheets to D
'
Dim rowCount As Integer
Sheets("D").Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
Sheets("A").Select
Range("A2").Select
Range(Selection, Selection.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("D").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("B").Select
Range("A2").Select
Range(Selection, Selection.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("D").Select
rowCount = Cells(Rows.Count, 1).End(xlUp).Row 'column A has a value of 1
Cells(rowCount + 1, 1).Select
ActiveSheet.Paste
Sheets("C").Select
Range("A2").Select
Range(Selection, Selection.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("D").Select
rowCount = Cells(Rows.Count, 1).End(xlUp).Row 'column A has a value of 1
Cells(rowCount + 1, 1).Select
ActiveSheet.Paste
End Sub
このマクロを実行するたびに、それが列ヘッダを除いて、シートD
のすべてのコンテンツを削除し、シートA
をコピーしています、B
とC
後1シートD
以外
これは容易に変更することができる2つの基本的な仮定がありますシートの名前はA
、B
、C
とD
ある
- を。私はこれが真実ではないと思うので、
Sheets("A").Select
のようなすべての行をSheets("NameOfSheet").Select
で置き換えてください。
- すべてのシートのデータはセル
A2
で開始されます。そうでない場合は、Range("A2").Select
のようなすべての行をデータの最も左上の正しいセルに置き換えます。
一つの前提は簡単変更することはできません - すべてのシート上のデータが(同じ順序で、同じ数の列)だけで同じように見えること。
出典
2016-07-14 21:13:01
EBH
シートDのすべてのシートのデータをORG化するにはどうすればよいですか? – EBH
ちょうどお互いに積み重ねて、シートA、B&Cのようにすべてのコンテンツを互いに重ねて表示する必要があります – user3151956