Excel VBA質問箱 IV

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

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


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

49744 / 76732

←次へ　｜　前へ→


	【31891】総合集計表から個別集計に

YN63 - 05/12/1(木) 21:54 -


	引用なし

	パスワード

毎月の売上の総合集計表から、営業所個別のシートにデータを転記し営業所単位の集計を作成したいのですが(同じブック内でシートを分けて作成）

≪集計表≫毎月最低１回以上の頻度で営業所個別集計シート(シート数は150くらいです）　　　　　に転記します。
　 A　　　　　B　　　　C
1 11月30日
2
3 コードNo　営業所名　売上高
4　 101　　　　　AAA　　　　　　100
5　 102　　　　　BBB　　　　　　200
6　 103　　　　　CCC　　　　　　300
7　 104　　　　　　　　
8　 105　　　　　EEE　　　　　　400
9　 106　　　　　FFF　　　　　　250
10　107　　　　　　　　
11　108　　　　　HHH　　　　　　500
12　109　　　　　　　　　
13　110　　　　　JJJ　　　　　　350
14　111　　　　　KKK　　　　　　700
15　112　　　　　　　　
16　113　　　　　MMM　　　　　　500
：
：
：（全部で150行分のデータがあります。データは歯抜け(行)の状態もあります

≪営業所個別集計≫
　　A　　　　B　　　　 C　　　　D
1　コードNo 営業所名　　　　　　　　
2　101　　　　　AAA　　　　　　　　
3　　　　　　　　　　　　
4　年月日　　　　　　　　売上高　　　　売上累計
5 9月30日　　　　　　　　　150　　　　
6 10月31日　　　　　200　　　　350
7 11月30日　　　　　100　　　　450
:
:

とりあえず、シート名と売上が転記できれば良いのですが…
考えてコードを作成しましたが。
転記できません。アドバイスをお願いします。

Sub 順次選択貼付け()

Dim r As Range
Dim myr As Range

Set myr = Range("B4", Cells(65536, 2).End(xlUp))

For Each r In myr
If r <> "" Then
If r.Value = SheetsName Then
　 r.Offset(, 2) = Sheets("r").Range("C65536").End(xlUp).Offset(1)

　　'MsgBox r.Value & "と" & r.Row & "行目です"
End If
End If
Next

End Sub

0 hits

▼

【31891】総合集計表から個別集計に YN63 05/12/1(木) 21:54

≪