Excel VBA質問箱 IV

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

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


45407 / 76732 ←次へ | 前へ→

【36318】35行9列に仕上げる
質問  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


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

1 コード 氏名 合計  | コード 氏名  合計   |コード 氏名 合計
2  001  AAA 300  |036   aaa  1000  |071   xxx  1500
3  002  BBB 400  |             |
:  003  CCC 700

35


 
1 hits

【36318】35行9列に仕上げる gako 06/3/28(火) 21:05 質問
【36320】Re:35行9列に仕上げる Kein 06/3/28(火) 21:46 回答
【36365】Re:35行9列に仕上げる gako 06/3/29(水) 22:44 お礼
【36366】Re:35行9列に仕上げる Kein 06/3/29(水) 23:00 回答
【36475】Re:35行9列に仕上げる gako 06/3/31(金) 23:15 お礼
【36321】Re:35行9列に仕上げる とおりすがり 06/3/28(火) 21:50 発言

45407 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free