|
初めてVBAを作っている超初心者です。
また、初めて質問させていただきます。
本を購入してコードの丸写しから始めて勉強しているところです。
ネット情報も参考にして、エラーを何度も処理し、マクロが実行出来るようになったところですが・・・。
載っていたサンプルの丸写しからは応用できないことが分かり、白紙に戻ってしまい、行き詰ってしまいました。
どなたか教えてください。
支店毎のシート(15枚)を1枚の全データシートにまとめたい。
シート内容
C列 |D列 |E列 |F列 |G列
ナンバー|品名 |金額 |日付 |備考
1 |コップ |1000 |4/1 |追加分
2 |プレート|5000 |4/10 |
3 |ブラシ |3000 |5/15 |新規
シート札幌 シート仙台 シート新潟 シート千葉・・・シート全データ
があります。
支店毎のシートにはフィールド列(A、B)および行(1〜3)がありますが、
書式、項目はすべて同一です。
全データシートには項目とデータのみ記載される。
やりたい作業は、
・支店のどこかのシートに新たな1行が加わると全データシートの最終行にも転記されるようにする。
・全データシートには単純にデータが入力順に追記され、並び替えや抽出はない。
→全データシートは最終行に新たに入力された行が追加されていき、
イメージ的には上から下へ帯状になる。
全データシート完成予定
ナンバー|品名 |金額 |日付 |備考
1 |コップ |1000 |4/1 |追加分
2 |プレート|5000 |4/10 |
3 |ブラシ |3000 |5/15 |新規
1 |グラス |800 |4/3 |
2 |カバー |20000 |4/20 |
3 |ブラシ |5000 |6/7 |確認済
4 |コップ |1000 |4/1 |追加分
・
・
・
また、
・シートによっては、データの無いシートもあり、後にデータが入力される可能性がある。
・各支店シートのデータは30行まで。30行を超えると、2枚目のシートが作成される。
私が、試してみたマクロは、
Sub 支店別シート統合()
Dim シート名 As Variant
Dim 開始セル As String
Dim i As Long
から始まり、
各シート名の代入、
統合シートの用意、
フィールド名のコピー、
支店別シートのデータコピー
End Sub
です。
しかし、これは各シートを一度に全データがコピーされ、1行づつ更新されるように応用させることができませんでした。
そもそもVBAは初めてなので、エクセル関数ですむのであれば、関数を教えていただきたいです。
データツールの統合では私にはできませんでした。
うまくまとめられず、長い内容ですみません。
VBAのコード、もしくはエクセルの関数を教えてください。
よろしくお願いします。
|
|