|
毎月の売上処理をシートに分けて集計しています。
その集計を更に半期単位にしたく、シートの統合?のような
ものを作成したいのですが、コードを書きましたが、
一つのセルのみが、統合されます。
コードの問題個所を指摘していただけませんでしょうか。
仕上がりのイメージは項目行は一列だけで、後は各シートの
項目行を除いたデータのみが順次新しいシート(上半期というシート)に次々に張り込んでいきたいのです。
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
|
|