使用多个字段和无分组的 Excel 数据透视表排序

Question

我有一个 Excel 工作簿，其中一个工作表上有联系信息，另一个工作表上有表格。我想创建另一个工作表，其中包含一组已过滤的联系人 FULLNAME，以显示在表单工作表的列表中。我让它使用带有 FULLNAME 的数据透视表，但如果不对项目进行分组，我就无法在 LASTNAME 上添加排序，这不是我想要的。任何不包含数据重复的建议

更新：

所以我用这种方法部分地按照我想要的方式工作。下图是基于工作表中的表的数据透视表。您可以看到名称是按名字排序的。我希望它们按姓氏排序

因此，当我将姓氏添加到数据透视表以便按姓氏排序时，它当然会像这样对数据进行分组，这是意料之中的。

这在我的表单列表中给出了这个结果

如您所见，姓氏分组条目也显示在列表中，这是不可取的。

更新： 使用下面的 Andreas 解决方案和其他一些修改，我能够完成这个问题。我发布了一个完整的解决方案，因为我知道其他人会需要它。

因此，使用下图中的 Andreas 解决方案，它为我提供了数据透视表右侧的第一组数据。正如您所看到的，它有空格，并且会不美观地将该表绑定到列表。因此，使用以下宏函数，我能够创建没有空格的第 3 列数据。函数如下...

=IFERROR(INDEX(SortedSpacedRange,SMALL((IF(LEN(SortedSpacedRange),ROW(INDIRECT("1:"&ROWS(SortedSpacedRange))))),ROW(A1)),1),"")

我没有在函数中使用范围数据，而是从名为“SortedSpacedRange”的第二列数据中创建了一个表。这使我可以更好地在多张纸上使用它。不要忘记使用 Ctrl+Shift+Enter 插入函数。

正如您在下面看到的，我现在有一个姓氏排序列表，除了我故意放在无空格表的第一行中的那个之外没有空格。

我希望有人觉得这很有用。再次感谢安德烈亚斯

Answer 1

现在我知道你需要什么了。
就在几天前，我在这里询问了如何从数据透视表中整理项目：
https://stackoverflow.com/questions/39383971/how-can-i-detect-pivot-table-new-items

你需要的是：

Function IsItem(c)
    If c.IndentLevel <> 0 Then ' I think this will work, not tested. Typing on my phone
        IsItem = True
    Else
        IsItem = False
    End If

End Function

如果数据透视表中的项目是新项目或“总和”，这将返回真/假。

因此，在数据透视表旁边的新列中使用以下公式：

编辑：很明显，数据透视表不是从 A1 开始的，我的错。只需将单元格替换为第一个单元格即可。编辑结束。 编辑 2：我现在看到第一个是 A4。编辑 2 结束。

=if(A4="","",if(IsItem(A4),A4,""))

它首先查看单元格，如果它是空的，则返回空的。
如果不为空，它会查看值，如果它是全名（不仅仅是姓氏），它将返回名称，否则为空。

现在，如果您填写此公式，您应该有一个仅包含您可以在表单列表中使用的全名的列表。

vba 代码应放在模块中，文件需要保存为宏激活工作簿 xlsm，然后才能在工作表上添加公式。