|
シート4から残り全てのデータの集計をしたいのですが、現在Sheets("sheet2")で集計させているのですが、
Sheets("sheet1")のデータが反映されて困っています。
sheets("sheet1")とSheets("sheet3")を除外させる方法を教えてください。
Sub データの集計()
Dim i As Long, k As Long, LstRow As Long
Dim Dsum As Long, ws As Worksheet
For i = 4 To Sheets.Count
If Sheets(i) = Sheets("sheet1") Then Exit Sub'←ここでエラーが出ます
With Sheets(i)
LstRow = .Range("D" & Rows.Count).End(xlUp).Row
For k = 2 To LstRow
Dsum = Dsum + .Range("D" & k)
Next k
End With
Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) = Sheets(i).Name
Sheets("sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1) = Dsum
Next i
End Sub
|
|