Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69146 / 76738

←次へ　｜　前へ→


	【12112】Re:あるSheetを600回自動ｺﾋﾟｰしたい

入門者 - 04/3/24(水) 9:29 -


	引用なし

	パスワード

皆さん　ありがとうございます。

>私も興味あります。６００回コピーして何をするんです。

以下の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

0 hits

▼

【12090】あるSheetを600回自動ｺﾋﾟｰしたい 入門者 04/3/23(火) 18:53