Excel VBA質問箱 IV

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

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


8269 / 13646 ツリー ←次へ | 前へ→

【34329】シートの統合 Mik 06/1/31(火) 20:00 質問[未読]
【34335】Re:シートの統合 とまと 06/1/31(火) 21:31 発言[未読]

【34329】シートの統合
質問  Mik  - 06/1/31(火) 20:00 -

引用なし
パスワード
   毎月の売上処理をシートに分けて集計しています。
その集計を更に半期単位にしたく、シートの統合?のような
ものを作成したいのですが、コードを書きましたが、
一つのセルのみが、統合されます。
コードの問題個所を指摘していただけませんでしょうか。

仕上がりのイメージは項目行は一列だけで、後は各シートの
項目行を除いたデータのみが順次新しいシート(上半期というシート)に次々に張り込んでいきたいのです。

Sub 統合シート作成() 

Dim R As Range
Dim WS As Worksheet
Dim lngRow

Worksheets(1).Range("1:1").Copy '1行目が項目行です
Worksheets.Add
Worksheets(1).Name = "下半期"
ActiveSheet.Paste

For Each WS In Worksheets

If WS.Name <> "下半期" Then
With Worksheets("下半期")

 Set R = WS.Range("A1").CurrentRegion
 lngRow = .Range("A65536").End(xlUp).Offset(1).Row
 
  .Range("A" & lngRow).Value = R.Offset(1, 0).Resize(R.Rows.Count - 1,   R.Columns.Count).Value
 
End With
End If
Next

Set R = Nothing
End Sub

【34335】Re:シートの統合
発言  とまと  - 06/1/31(火) 21:31 -

引用なし
パスワード
   ここかな?

.Range("A" & lngRowR).value
 ↓
.Range("A" & lngRowR).resize(Rows.Count - 1, R.Columns.Count).Value

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