Excel VBA質問箱 IV

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

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


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

45410 / 76735

←次へ　｜　前へ→


	【36318】35行９列に仕上げる

gako - 06/3/28(火) 21:05 -


	引用なし

	パスワード

約100枚のシートの個人別積み立て表があります。
この100枚のシートの表を1枚の集計表に仕上げたいのです。

個々の積み立て表は次のような内容です。
　　　A 　　　B　　　　C　　　　D
1　コード　氏名
2　 001　　 AAA
3
4
5　日付　　備考　　金額　　合計　　　
6　1/31　　　　　　　　100　　　 300
7　2/28　　　　　　　　100
8　3/31　　　　　　　　100
9

集計表に集計するため次のようなコードを書いています。
このコードでは、集計表のAからC列(コード、氏名、金額）に100行にまたがりデータが張り込まれます。
Sub 集計 ()
Dim Ws as Worksheet
Dim LngR as long
　 For Each Ws In Worksheets
　　If Ws.Name<>集計表 And Ws.Name<>XYZ Then

　　 With Sheets("集計表")
　　　　LngR=.Range("A65536").End(xlUp).Offset(1).Row
　　　 .Range("A"&LngR)=Ws.Range("A2")
　　　 .Range("B"&LngR)=Ws.Range("B2")
　　　 .Range("C"&LngR)=Ws.Range("D6")
　　 End With

　　End If
　Next
End Sub

これを下のような表の『３５行９列の仕上げ』にしたいのですが、コードのチェックを
お願いできませんでしょうか。　

１　コード　氏名　合計　 | コード　氏名　合計　　｜コード　氏名　合計
２　　001　　AAA　300 　｜036　　　aaa　　1000　　｜071　　　xxx　 1500
３　　002　　BBB　400 　｜　　　　　　　　　　　　｜
：　 003　　CCC　700
：
35

　

0 hits

▼

【36318】35行９列に仕上げる gako 06/3/28(火) 21:05

≪