| |
複数の同じ書式の日報用シートがあり、1番右に集計用のシートがあります。
日報用シートが２０までなら正常に集計されるのですが２１以上になると空白であるはずの次の行ＢＣ・ＢＤ・ＢＧ・ＢＨに数値が入ってしまいます。
どなたかお知恵を貸して下さい。
Sub 詳細集計()
Dim s As Integer
Dim target_sheet As Worksheet
Dim summary_sheet As Worksheet
Set summary_sheet = ThisWorkbook.Worksheets("集計")
s = 9
For Each target_sheet In ThisWorkbook.Worksheets
summary_sheet.Range("AY" & CStr(s)).Value = target_sheet.Range("B9").Value
summary_sheet.Range("AZ" & CStr(s)).Value = target_sheet.Range("H9").Value
summary_sheet.Range("BA" & CStr(s)).Value = target_sheet.Range("H24").Value
summary_sheet.Range("BB" & CStr(s)).Value = target_sheet.Range("A28").Value
summary_sheet.Range("BC" & CStr(s)).Value = target_sheet.Range("D28").Value
summary_sheet.Range("BD" & CStr(s)).Value = target_sheet.Range("F28").Value
summary_sheet.Range("BE" & CStr(s)).Value = target_sheet.Range("H28").Value
summary_sheet.Range("BF" & CStr(s)).Value = target_sheet.Range("A29").Value
summary_sheet.Range("BG" & CStr(s)).Value = target_sheet.Range("D29").Value
summary_sheet.Range("BH" & CStr(s)).Value = target_sheet.Range("F29").Value
summary_sheet.Range("BI" & CStr(s)).Value = target_sheet.Range("H29").Value
s = s + 1
Next target_sheet
End Sub
|
|
とろざえもん
- 14/7/6(日) 16:36 -
