質問: 【VBA:COUNTIF 複数条件】 ※画像を添付しております。 B~K列に表が存在します、 B,D,F,H,J列には勝率 ※%表記なしですが有りにもできます。 C,E,G,I,K列には本数 それぞれの数値が存在します。 勝率を評価するための基準点がM列にあり、その基準によって 評価点が変わります。 さらにP列に本数の基準があり、〇本以上の本数があるセルのみ計算させ、 S列に各No.の総合点を記入したいです。 できればVBAでご教示いただけると幸いです。 宜しくお願い致します。
回答: M列はその表記ですと計算出来ないので、添付図のように変更して下さい。 Sub test() Dim hon As Integer Dim rng As Range Dim r As Long Dim c As Integer Dim gt As Integer hon = Range("P2").Value Set rng = Range("M2:M11") For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row gt = 0 For c = 2 To 10 Step 2 If Cells(r, c + 1).Value >= hon Then gt = gt + Range("N" & Application.Match(Cells(r, c).Value, rng, -1) + 1).Value End If Next c Cells(r, 19).Value = gt Next r End Sub