|
▼momomi さん:
今晩は。テストしてみました。だけど小計が上手くまとまらないのですが…
このようなのでは、?
誰か、小計の仕方を訂正・追加してください。お願いします。
Sub 絞込みコピー()
Dim myr As Range
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
Cells(65535, 4).End(xlUp).Offset(1) = Application.WorksheetFunction. _
Sum(Selection.Cells("4"))
End Sub
>Sheet1にあるデータ(2000件)を検索し、Sheet2のように各品目ごとに並びかえ小計できるようにしたいのですが・・・VBAで動かしたいのです。
>宜しくおねがいします。
>
><Sheet1>
> A B C D E F
> 商品コード 品目 店コード 金額 消費税 合計
>1 1001 リンゴ 1 **** **** ****
>2 1002 ミカン 1 **** **** ****
>3 1001 リンゴ 2 **** **** ****
>4 1003 バナナ 1 **** **** ****
>5 1002 ミカン 2 **** **** ****
>6 1001 リンゴ 3 **** **** ****
>7 1003 バナナ 2 **** **** ****
>8 1001 リンゴ 4 **** **** ****
>
><Sheet2>
> A B C D E F
> 商品コード 品目 店コード 金額 消費税 合計
>1 1001 リンゴ 1 **** **** ****
>2 1001 リンゴ 2 **** **** ****
>3 1001 リンゴ 3 **** **** ****
>4 1001 リンゴ 4 **** **** ****
>5 リンゴ計 **** **** ****
>6 1002 ミカン 1 **** **** ****
>7 1002 ミカン 2 **** **** ****
>8 ミカン計 **** **** ****
>9 1003 バナナ 1 **** **** ****
>10 1003 バナナ 2 **** **** ****
>11 バナナ計 **** **** ****
>12 合 計 **** **** ****
|
|