|
▼momomi さん:
YNです。
若干ミスがありました。
再度コードを書きました。ご参考までに
Sub test3()
Sheets(1).Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Range("H1").Value
Selection.CurrentRegion.Offset(1).Select
Selection.Copy
Sheets(2).Select
Cells(65536, 1).Offset(, 3).End(xlUp).Offset(1, -3).Select
Selection.PasteSpecial Paste:=xlValues
Dim myRange As Range
Dim 列 As Integer
Dim 開始 As Integer
Dim 終了 As Integer
Dim endR As Integer
開始 = 4
終了 = 7
For 列 = 開始 To 終了
endR = Cells(65536, 列).End(xlUp).Row
Set myRange = Range(Cells(endR, 列), Cells(Selection.Row, 列))
Cells(endR + 1, 列) = Application.WorksheetFunction.Sum(myRange)
Next 列
Range("A1").Select
Sheets(1).Select
Range("A1").Select
Selection.AutoFilter
End Sub
|
|