数据透视表中的文本值？
我有一个表（在MySQL中）与3列：
Location Category Supplier A Computers Company X A Printers Company Y B Computers Company X B Printers Company Y B Software Company Y C Computers Company Y C Software Company Z 现在我需要制作一个包含上述信息的matrix，如下所示：
Computers Printers Software A Company X Company Y B Company X Company Y Company Y C Company Y Company Z
最终我需要在Excel中有这个。
实际上，我有一个可变数量的类别，所以在MySQL中使用每个列的连接来做这件事不是一个好的select。 我可以在PHP中编写一个函数，但是我想知道是否有更优雅的解决scheme。
我在Excel中查看了一个数据透视表，但他们似乎更适合作为数值的数字。 但也许我忽略了一些东西，因为我从来没有用Excel自己工作。
有任何想法吗？
我遇到了与数据透视表相同的问题…完美的摘要，但不适用于文本matrix。
我刚刚“取消”了一些我使用过的代码示例。 在这里，我有AD列中的数据，并在F列周围构buildmatrix（在同一张表中）。
检查看看是否有帮助。
我仍然无法使代码看起来正确，所以请注意，代码窗口之前有很多代码已经启动。
代码示例1：
'Fill in the values Sheets("TempFile").Select ListRow = 1 MisMatchCounter = 0 Do Until Cells(ListRow, 1).Value = "" ' Get table entry from third column of list. TableEntry = Cells(ListRow, 3).Value On Error Resume Next If Err.Number > 0 Then MsgBox Err.Number ' Get position of product name within range of row titles. If TableEntry <> "" Then TableRow = Application.Match(Cells(ListRow, 1), Range("F3:" & MYLastRowAddress), 0) ' 2 rows less than reality ' Get position of product size within range of column titles. TableColumn = Application.Match(Cells(ListRow, 2), Range("G2:" & MYLastColAddress), 0) Set CellToFill = Range("F2").Offset(TableRow, TableColumn) ' If there's already an entry in the cell, separate it from the new entry with a comma and space. If Err.Number = 0 Then If CellToFill.Value <> "" Then CellToFill.Value = CellToFill.Value & "," CellToFill.Value = CellToFill.Value & TableEntry Else CellToFill.Value = TableEntry End If Else MisMatchCounter = MisMatchCounter + 1 Sheets("Errors").Cells(MisMatchCounter, 1).Value = ListRow Sheets("Errors").Cells(MisMatchCounter, 2).Value = Cells(ListRow, 1) Sheets("Errors").Cells(MisMatchCounter, 3).Value = Cells(ListRow, 2) Sheets("Errors").Cells(MisMatchCounter, 4).Value = Cells(ListRow, 3) Sheets("Errors").Cells(MisMatchCounter, 5).Value = Cells(ListRow, 4) End If End If On Error GoTo 0 ListRow = ListRow + 1 Loop
代码示例2：
Sub CreateManualMatrix() Dim TableRow, TableColumn As Integer Dim TableEntry As String Dim CellToFill As Range 'Sheet is called Lijst 'Column A is names for top row 'Column B is names for left column 'Column C is value for Matrix 'Matrix Top Row starts at H1 'Matrix Left Column starts at G2 MatrixLastColAddress = Range("H1").End(xlToRight).Address MatrixLastRow = Range("G65536").End(xlUp).Row LijstReadColumn = 3 LijstCurrentRow = 2 'make 1 if no header is used Do Until Sheets("Lijst").Cells(LijstCurrentRow, 1).Value = "" ' Get table entry from third column of list. TableEntry = Sheets("Lijst").Cells(LijstCurrentRow, LijstReadColumn).Value ' Get position of Employee name within Matrix. TableColumn = Application.Match(Sheets("Lijst").Cells(LijstCurrentRow, 1), Range("H1:" & MatrixLastColAddress), 0) ' Get position of Qualification Name within Matrix titles. TableRow = Application.Match(Sheets("Lijst").Cells(LijstCurrentRow, 2), Range("G2:G" & MatrixLastRow), 0) Set CellToFill = Range("G1").Offset(TableRow, TableColumn) ' If there's already an entry in the cell, separate it from the new entry with a comma and space. If CellToFill.Value <> "" Then CellToFill.Value = CellToFill.Value & "," ' Add the new entry to the cell. CellToFill.Value = CellToFill.Value & TableEntry LijstCurrentRow = LijstCurrentRow + 1 Loop End Sub
我没有办法检查查询是否正常，但或多或less会是这样的查询：
SELECT t1.Location, MAX(t1.Computers), MAX(t1.Printers), MAX(t1.Software) FROM ( SELECT t.Location, CASE WHEN t.Category = 'Computers' THEN t.Supplier END Computers, CASE WHEN t.Category = 'Printers' THEN t.Supplier END Printers, CASE WHEN t.Category = 'Software' THEN t.Supplier END Software, FROM YOUR_TABLE t ) t1 GROUP BY t1.Location
你所寻求的通常被称为交叉表。 这可以像静态一样完成：
Select Location , Min( Case When Category = 'Computers' Then Supplier End ) As Computers , Min( Case When Category = 'Printers' Then Supplier End ) As Printers , Min( Case When Category = 'Software' Then Supplier End ) As Software From MyTable Group By Location
但是，如果您所寻求的是dynamic数量的类别（以及列），则无法在SQL中进行本地化。 这个后来的解决scheme被称为dynamic交叉表。 最好的方法是在中间层构build类似于上面的静态版本的SQL语句，或者使用报告工具来执行相同的操作。