[Excelマクロ]集計結果及ぶ降順での並べ替え

質問

添付ファイルのような行列が商品コードのテーブルがございます。
(実際の行数はもっと多いです)
作成したいのは、黄色セルです

・I列に各行の合計
・K列へ合計の降順に商品コードの並べ替え、L列にその合計
・同額は検索順で配置

Office 365を使用しています。
マクロではどうのよに記述したら良いでしょうか?

回答No.1

SI299792 · ベストアンサー

行数が書いてありません、１行目が項目名、２行目からデータとします。
関数
I2: =SUM(B2:H2)+ROW()/10000
K2: =INDEX(A:A,MATCH(L2,I:I,0))
L2: =LARGE($I:$I,ROW()-1)
Ｉ，Ｌ列、セルの書式設定、ユーザー定義「0」
でできます。但し、この場合、合計に誤差が出るので、合計の更に合計など、計算には使わないでください。
必要なら別に=SUM(B2:H2) を設けて下さい。

VBA の場合
Option Explicit
'
Sub Macro1()
Dim Rend As Long
'
Rend = [A1].End(xlDown).Row
Range("I2:I" & Rend) = "=SUM(B2:H2)"
Range("A2:A" & Rend).Copy
[K2].PasteSpecial xlPasteValues
Range("I2:I" & Rend).Copy
[L2].PasteSpecial xlPasteValues
Range("K2:L" & Rend).Sort Key1:=[L2], Order1:=xlDescending
End Sub

お礼

ありがとうございました。
初めて使用する関数ばかりで勉強になりました。