|
皆さん ありがとうございます。
>私も興味あります。600回コピーして何をするんです。
以下のvbaで一覧にあるデータを、営業所ごとのシートにわけるのです。
その営業所が全国で600あるのです。
例は川崎、港北のみですが、
このあとに続けて598シート作成するロジックを追加する予定です。
(なお関連する投稿をしています。混乱を避けるため別名で。)
Sub AAA()
Dim I, A, B
A = 2
B = 2
With Sheets("一覧")
For I = 2 To .Range("A65535").End(xlUp).Row
Select Case .Cells(I, 10).Value
Case "川崎営"
Sheets("a").Cells(A, 1).Value = Cells(I, 9).Value
Sheets("a").Cells(A, 2).Value = Cells(I, 10).Value
A = A + 1
Case "港北営"
Sheets("b").Cells(B, 1).Value = Cells(I, 9).Value
Sheets("b").Cells(B, 2).Value = Cells(I, 10).Value
B = B + 1
End Select
Next
End With
End Sub
|
|