在Excel和Access中，你可以使用VBA代码来按名称分组并计算百分位数。以下是一个示例代码，可以实现这个功能：

在Excel中，你可以使用以下VBA代码：

Sub CalculatePercentile()
    Dim ws As Worksheet
    Dim rng As Range
    Dim dataRange As Range
    Dim groupRange As Range
    Dim group As Range
    Dim groupName As String
    
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set dataRange = ws.Range("A2:B10") ' 假设数据在A2:B10范围内，包括名称和数值两列
    
    ' 按名称分组
    Set groupRange = dataRange.Columns(1).SpecialCells(xlCellTypeConstants)
    
    ' 循环处理每个分组
    For Each group In groupRange
        groupName = group.Value
        
        ' 在结果列中写入分组名称
        ws.Cells(group.Row, dataRange.Columns.Count + 2).Value = groupName
        
        ' 计算分组的百分位数
        ws.Cells(group.Row, dataRange.Columns.Count + 3).Value = WorksheetFunction.PercentileIf(dataRange.Columns(2), groupName, dataRange.Columns(1))
    Next group
End Sub

在Access中，你可以使用以下VBA代码：

Sub CalculatePercentile()
    Dim db As Database
    Dim rs As Recordset
    Dim query As String
    Dim nameField As String
    Dim valueField As String
    Dim groupName As String
    
    ' 设置数据库和查询
    Set db = CurrentDb
    query = "SELECT Name, Value FROM YourTable" ' 假设你的表名为YourTable，包含名称和数值两个字段
    
    ' 执行查询
    Set rs = db.OpenRecordset(query)
    
    ' 循环处理每个分组
    Do Until rs.EOF
        groupName = rs.Fields("Name").Value
        
        ' 在结果字段中写入分组名称
        rs.Edit
        rs.Fields("GroupName").Value = groupName
        
        ' 计算分组的百分位数
        rs.Fields("Percentile").Value = DCount("*", "YourTable", "Name='" & groupName & "' AND Value <= " & rs.Fields("Value").Value)
        
        rs.Update
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

这些示例代码将按照名称分组，并在结果列（Excel）或字段（Access）中计算每个分组的百分位数。你可以根据你的具体数据和需求进行调整和修改。