|
YN63さん、こんにちは
>はい、その通りです。各営業所(シート単位で)の累計がD6にありますので
累計はD6だったのですね^^;
以下を修正してください。
>
>Sub 累計転記()
> '集計するシート名
> Const strUSH As String = "月次/年年度集計"
> Dim SH As Worksheet
> Dim lngRow As Long
>
> For Each SH In Worksheets
> If SH.Name <> strUSH _
> And SH.Name <> "集計表" Then
> With Sheets(strUSH)
> '集計表の最終行を取得
> lngRow = .Range("A65536").End(xlUp).Row + 1
> 'コードNoを転記
> .Range("A" & lngRow).Value = SH.Range("A2").Value
> '営業所名を転記
> .Range("B" & lngRow).Value = SH.Range("B2").Value
> '累計を転記
> '.Range("D" & lngRow).Value = SH.Range("A65536").End
> (xlUp).Offset.(, 3).Value
'累計を転記
.Range("D" & lngRow).Value = SH.Range("D6").Value
> End With
> End If
> Next
> '転記したデータをソートする
> Sheets(strUSH).Range("A4:D" & lngRow).Sort _
> Key1:=Range("A4"), _
> Order1:=xlAscending, _
> Header:=xlGuess
>End Sub
|
|