|
こんばんは。
シート”総合集計表”に一覧データ
個別のシート名は、半角の"101"、"102"、"103"・・・"150"とすでに
作成され、A4 B4 C4 が "年月日""売上高""売り上げ累計"
が入力されているものとします。
Sub test()
Dim sh As Worksheet
Dim FR As Variant
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "総合集計表" Then
FR = Application.Match(Val(sh.Name), Worksheets("総合集計表").Range("A:A"), 0)
If Not IsError(FR) Then
With sh
If Not IsEmpty(Worksheets("総合集計表").Cells(FR, 2).Value) Then
.Range("A65536").End(xlUp).Offset(1).Value = _
Worksheets("総合集計表").Range("A1").Value
.Range("B65536").End(xlUp).Offset(1).Value = _
Worksheets("総合集計表").Cells(FR, 3).Value
End If
If IsNumeric(.Range("C65536").End(xlUp).Value) Then
.Range("C65536").End(xlUp).Offset(1).Value = _
.Range("C65536").End(xlUp).Value + .Range("C65536").End(xlUp).Offset(1, -1).Value
Else
.Range("C65536").End(xlUp).Offset(1).Value = _
.Range("C65536").End(xlUp).Offset(1, -1).Value
End If
End With
End If
End If
Next
End Sub
|
|