将数据分组在Microsoft Access或Microsoft Excel中

Question

这似乎应该很简单，但我正在努力寻找解决方案。

我有一张大表格，其中包含项目团队成员，每个项目中的每个团队成员一行。这是它的外观简化样本：

项目	角色	团队成员
Alpha	项目经理	Will Will Will
Alpha	业务分析师	John
Alpha	业务分析师	Amy
Alpha	开发商	Sally
Alpha	开发	人员Joe Alpha开发人员Joe
Alpha	开发人员	Pete
Beta Beta	项目经理	John
Robert Beta Beta	业务分析师	Frank
Frank Beta	开发人员	Beta开发人员Frank
Beta	开发人员	Beta Beta Develaper Bruce

如您所见，我们的项目通常每个角色都有多个团队成员，我正在尝试在每个角色的列下列出适当的名称，每个项目一行：

项目	项目经理	业务分析师	开发人员
Alpha	Will	John Amy	Sally Joe Pete
Beta	Robert	John	Frank Bruce

在我尝试在MS Access中使用Crosstab查询时，我必须选择名字或姓氏；我找不到列出所有这些方法的方法。

当我尝试MS Excel中的枢轴表时，我可以将每个角色显示为列，但是名称仍然出现在第一列中，而不是根据团队成员的角色出现在列中。

MS Access或MS Excel中的解决方案可以满足我的需求。

谢谢你！

Answer 1

为了在PQ中执行此操作，您必须

• 按项目
• 组按每个子表进行分组，请通过角色
• 组合使用LF字符的团队成员列表，如果您的原始表位于Excel中，则使用LF字符
• 在角色列上使用每个subtable在角色列中

使用PQ，以使用PQ

• 枢轴 您的原始表
• data =＆gt;获取＆amp; transform =＆gt;从表/范围或从表格中
• 从PQ UI打开时，导航到home =＆gt;高级编辑器
• 在代码的第2行中记下表名。
• 在下面的 m-code 上替换现有代码
• 将粘贴代码的第2行中的表名更改为“真实”表名称，
• 请检查任何注释，还将应用步骤窗口，为了更好地理解算法和步骤，
• 如果将其加载到Excel中，请确保用线馈送线上启用单词包装，以使显示正确。

如果您的原始表是来自另一个来源，则需要从PQ访问该源 - 有许多连接器可以代替下面的代码中的第一行，

let
    Source = Excel.CurrentWorkbook(){[Name="TeamMembers"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{
        {"Project", type text}, {"Role", type text}, {"Team Member", type text}}),

//Group by Project
//  Sub group by Role
//  Pivot on Role
    #"Grouped Rows" = Table.Group(#"Changed Type", {"Project"}, {
        {"roles", each Table.Pivot(
        Table.Group(_,"Role",{
            {"role", each Text.Combine([Team Member],"#(lf)")}
            }),List.Distinct([Role]),"Role","role")}
        }),

//Expand all columns
    roles = List.Distinct(#"Changed Type"[Role]),
    #"Expanded roles" = Table.ExpandTableColumn(#"Grouped Rows", "roles", roles,roles),

//set data types
    typeIt = Table.TransformColumnTypes(#"Expanded roles", List.Transform(Table.ColumnNames(#"Expanded roles"), each {_, type text}))
in
    typeIt

Answer 2

为了完整性，这里是一个访问解决方案：

问题（突出显示）是访问只能将1个摘要放在横牌的每个单元格内，但是有多个团队成员填补了一些角色（高光线）。为了解决这个问题，我们将Teammember重新计算为：sally＆lt; br/gt; joe＆lt; br/gt; pete
幸运的是，这里已经有一个功能：
Microsoft

Public Function GetList(SQL As String _
                            , Optional ColumnDelimeter As String = ", " _
                            , Optional RowDelimeter As String = vbCrLf) As String
                           
' make sure to add a reference to the latest Microsoft ActiveX Data Objects x.x Library For me that was 6.1
Const PROCNAME = "GetList"
Const adClipString = 2
Dim oConn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim sResult As String

On Error GoTo ProcErr

Set oConn = CurrentProject.Connection
Set oRS = oConn.Execute(SQL)
sResult = oRS.GetString(adClipString, -1, ColumnDelimeter, RowDelimeter)
If Right(sResult, Len(RowDelimeter)) = RowDelimeter Then
    sResult = Mid$(sResult, 1, Len(sResult) - Len(RowDelimeter))
End If

GetList = sResult
oRS.Close
oConn.Close

CleanUp:
    Set oRS = Nothing
    Set oConn = Nothing

Exit Function
ProcErr:
    ' insert error handler
    Resume CleanUp

End Function

访问控件中的丰富文本格式仅适用于长文本格式。因此，首先将角色和团队成员转换为表中的长文本。不幸的是，GetList必须返回字符串，因此我们无法直接从使用GetList的查询中构建报告。取而代之的是，我们基于类似的查询来构建报告：

https://i.sstatic.net/oxddt.png“ alt =”在此处输入图像说明”>

将适当的报告控件设置为RichText，然后替换报告（单击红色）记录源（确保其报告使用getList的查询更改的记录源。
参见 http://allenbrowne.com/ser-63.html 最终查询的联合查询（备忘录=长文本）

使用GetList计算的字段替换团队成员。

TeamMember: First(GetList("SELECT TeamMember FROM Sheet1 WHERE Project = '" & [Project] & "' AND Role = '" & [Role] & "'","<br/>","<br/>"))