『ＶＢＡによるシートの操作』（トカチェフ）

お疲れ様です。いつもありがとうございます。

１つのブックに数枚のシートがあります。各シートには

Ａ列に顧客番号（２桁より６桁まで様々）、Ｂ列に顧客

の種類（数種類ほど）が書かれています。

この種類は毎月の買上によって、変化するので、一度こ

の数枚のシートを１つのシートにくっつけて、そこで編

集してから、また各種類に応じて振り分ける作業をして

います。

ＶＢＡ起動⇒そのブック内にあるシートを全て結合

ここで一旦、種類の変更のため、マクロストップし担当者が編集

またＶＢＡ起動⇒その１つのシートをＢ列の種類に応じて

各シートに分ける。

以上のような作業をマクロで可能でしょうか。もしお知恵を

拝借できるなら、よろしくお願い致します。
----
 >ＶＢＡ起動⇒そのブック内にあるシートを全て結合 
 >ここで一旦、種類の変更のため、マクロストップし担当者が編集 
 >またＶＢＡ起動⇒その１つのシートをＢ列の種類に応じて 
 >各シートに分ける。 

 マクロを、"Before" と "After" の２つ作ればできそうですが。
 それではまずいのでしょうか？
 (じゅんじゅん)
----
マクロは２つになっても大丈夫だと思います。

よろしくお願い致します。

　　　　　　　　　　　　　　　　　（トカチェフ）
----
 一番右のシートにデータを纏めるサンプル。
 
 Sub test()
  Dim r As Range
  Dim rr As Range
  Dim i As Integer
 
 Set rr = Worksheets(Worksheets.Count).Range("A1")
 For i = 1 To Worksheets.Count - 1
     With Worksheets(i)
          Set r = .Range(.[A1], .Cells(Rows.Count, "B").End(xlUp))
     End With
     r.Copy rr
     Set rr = rr.Cells(r.Rows.Count, "A").Offset(1)
 Next
 End Sub
 ご参考になれば。
 (じゅんじゅん)
----
データを分ける方法
 
[[20070730174656]]　『VBA-データ抽出、転送方法』（aoki） 
 ご参考になりませんか？
 (じゅんじゅん)