ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】上位〇%に含まれるデータを検索するマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、上位〇%に含まれるデータを検索するマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200420034651p:plain

 

C1セルにPercentile_Inc関数で上位30%のボーダーラインを求めます。

あとはその数値より下か上かをIF文で条件分岐します。

 

<マクロ実行後>

f:id:gorilla-strong:20200420034859p:plain

 

動作としては以上です。

 

ソースコード 

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row


ws.Range("C1") = WorksheetFunction.Percentile_Inc(ws.Range("B3:B" & lastrow), 0.7)

For i = 3 To lastrow

If ws.Range("B" & i) >= ws.Range("C1") Then
    ws.Range("C" & i) = "★"
ElseIf ws.Range("B" & i) <= ws.Range("C1") Then
    ws.Range("C" & i) = ""
End If


Next

End Sub

 

以上、ゴリラストロングでした。