|
▼momomi さん:
補足しておきます。
シート1においてシート関数で仕上げておいては?如何でしょう。
消費税の欄ですが… =IF(D2="","",D2*1.05)
合計の欄ですが… =IF(E2="","",E2*F2)
この関数は貴方の表に合わせて作成してくださいね。
このように仕上げるとマクロがシンプル簡単になると思います。
一部変更しました。コピーして試してみて下さい。
これで動くと思います。
商品の選択は私の書いたのが一番シンプルと思いますが?如何でしょう。
商品の数の変化にも対応しやすいですし、探すのも時間がかからないと
思いますが…
Sub 絞込みコピー()
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(1, 列), Cells(endR, 列))
Cells(endR + 1, 列) = Application.WorksheetFunction.Sum(myRange)
Next 列
Range("A1").Select
Sheets(1).Select
Range("A1").Select
Selection.AutoFilter
End Sub
|
|