[[20070914114644]] 『VBAによるシートの操作』(トカチェフ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『VBAによるシートの操作』(トカチェフ)

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

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

A列に顧客番号(2桁より6桁まで様々)、B列に顧客

の種類(数種類ほど)が書かれています。

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

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

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

います。

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

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

またVBA起動⇒その1つのシートをB列の種類に応じて

各シートに分ける。

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

拝借できるなら、よろしくお願い致します。


 >VBA起動⇒そのブック内にあるシートを全て結合 
 >ここで一旦、種類の変更のため、マクロストップし担当者が編集 
 >またVBA起動⇒その1つのシートをB列の種類に応じて 
 >各シートに分ける。 

 マクロを、"Before" と "After" の2つ作ればできそうですが。
 それではまずいのでしょうか?
 (じゅんじゅん)

マクロは2つになっても大丈夫だと思います。

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

                 (トカチェフ)


 一番右のシートにデータを纏めるサンプル。

 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)

 ご参考になりませんか?
 (じゅんじゅん)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.