[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAによるシートの操作』(トカチェフ)
お疲れ様です。いつもありがとうございます。
1つのブックに数枚のシートがあります。各シートには
A列に顧客番号(2桁より6桁まで様々)、B列に顧客
の種類(数種類ほど)が書かれています。
この種類は毎月の買上によって、変化するので、一度こ
の数枚のシートを1つのシートにくっつけて、そこで編
集してから、また各種類に応じて振り分ける作業をして
います。
VBA起動⇒そのブック内にあるシートを全て結合
ここで一旦、種類の変更のため、マクロストップし担当者が編集
またVBA起動⇒その1つのシートをB列の種類に応じて
各シートに分ける。
以上のような作業をマクロで可能でしょうか。もしお知恵を
拝借できるなら、よろしくお願い致します。
>VBA起動⇒そのブック内にあるシートを全て結合 >ここで一旦、種類の変更のため、マクロストップし担当者が編集 >またVBA起動⇒その1つのシートをB列の種類に応じて >各シートに分ける。
マクロを、"Before" と "After" の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.