VBA中的百分比

Question

社区早安

我试图编写一个宏，该宏从一个选项卡中的数组开始，在另一个选项卡中，我编写百分比计算（70％）。 在所附的图片中，左侧是我的数据库，右侧是我想要得到的结果：

我对函数本身以及如何分隔每个名称感到困惑。

非常感谢您的帮助。

 Sub Maths()
Dim Result As Double
Dim Apm As Worksheet
Set Apm = Worksheets("SOURCE")
Dim Bilan As Worksheet
Set Bilan = Worksheets("bilan")

Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select

Data = Selection.Value

'Clear worksheet Yield
For i = 3 To 10
    For j = 1 To 5
            Bilan.Cells(i, j).ClearContents
    Next j
Next i


            ' I use (1) and (2) below to test the copy/paste
            Bilan.Columns(1).Rows(2).Value = Apm.Columns.Rows(3).Value
            Bilan.Columns(2).Rows(2).Value = Application.WorksheetFunction.Percentile_Inc (Data, 0.68)

MsgBox ("Work done")
Bilan.Activate

End Sub