|
▼momomi さん:
さっきから頑張って見直しました。
これで、使ってみてください。検索の意味が分かりません?
このコードはJIに「ミカン、リンゴ、バナナ」と明示するようにしています。
K列ではCurrentRegionにかかりそうですので、少し移動しました。
J1のところに「データ→入力規則→リスト」で、ここに商品名を入れてください。
商品名と商品名の間にには「コンマ」半角で入れないと動きませんのでご注意
下さい。
Sub test()
Application.ScreenUpdating = False
Sheets(1).Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Range("J1").Value
Selection.CurrentRegion.Offset(1).Select
Selection.Resize(Selection.Rows.Count - 1, Selection.Columns.Count).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 列
Cells(65536, 2).End(xlUp).Offset(1).Value = Sheets(1).Range("J1").Value & "合計"
Range("A1").Select
Sheets(1).Select
Range("A1").Select
Selection.AutoFilter
Application.ScreenUpdating = True
End Sub
|
|