|
約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
これを下のような表の『35行9列の仕上げ』にしたいのですが、コードのチェックを
お願いできませんでしょうか。
1 コード 氏名 合計 | コード 氏名 合計 |コード 氏名 合計
2 001 AAA 300 |036 aaa 1000 |071 xxx 1500
3 002 BBB 400 | |
: 003 CCC 700
:
35
|
|