表格到列Excel

我在excel中有多个工作表，都有一个“名称”列。我想要一份所有这些结合在一起的清单，没有重复的。从我的理解来看，透视表无法做到这一点，在尝试此操作时，我只从A:A列获得结果。然而，该示例建议，当我将D:D命名为“ColumnData”和表“DataTable”时，应将A:A、B:B、C:C组合在D:D中（命名似乎没有错误，因为我得到了一些结果）

有什么帮助吗？这是我在D2中使用的代码（刚刚将逗号改为分号，表示Excel的本地名称）：

其他信息：

首先，我使用pivot表来创建一个列表，其中没有来自工作表的重复名称（因为它们包含大量数据）。然后我为它命名（名称管理器），公式如下：

='Name lists'!$A$2:INDEX('Name lists'!$A:$A;MATCH("*";'Name lists'!$A:$A;-1);1)

…并将其称为“名称表1”

然后，我用以下内容填充表中的A:A：

=IFERROR(INDEX(NamesSheet1;MATCH(NamesSheet1;NamesSheet1;0));"")

---

..并将公式向下拖动到比名称多的行。然后我对每个新列重复，B:B，C:C.

将工作簿中的新选项卡重命名为Master。并运行下面的代码。它会将不同选项卡中的所有数据复制到主选项卡。让我知道这是否是必需的，或者是否需要任何其他更改

Sub ttest()

Dim wb As ThisWorkbook
Dim ws As Object

For Each ws In ActiveWorkbook.Worksheets
ws.Select
ActiveSheet.UsedRange.Copy
Worksheets("Master").Select
i = Range("A65536").End(xlUp).Row
Range("A" & i+1).Select
ActiveSheet.Paste
Next


End Sub

---

将工作簿中的新选项卡重命名为主选项卡。并运行下面的代码。它会将不同选项卡中的所有数据复制到主选项卡。让我知道这是否是必需的，或者是否需要任何其他更改

Sub ttest()

Dim wb As ThisWorkbook
Dim ws As Object

For Each ws In ActiveWorkbook.Worksheets
ws.Select
ActiveSheet.UsedRange.Copy
Worksheets("Master").Select
i = Range("A65536").End(xlUp).Row
Range("A" & i+1).Select
ActiveSheet.Paste
Next


End Sub

---

我通过使用链接示例中的“ColumnDataR”-选项，然后从该列创建一个透视表（因为“ColumnDataR”-列没有删除重复项），从而修复了它。然后我创建了一个新的名称列表（名称管理器）基于新的数据透视表。虽然现在我只需要将原始数据输入到工作表中，然后刷新所有数据，但还有一段很长的路要走。

我通过使用链接示例中的“ColumnDataR”（ColumnDataR）选项，然后从该列（作为“ColumnDataR”）生成一个数据透视表，从而满意地修复了它-列没有删除重复项。然后我创建了一个新的名称列表（名称管理器）基于新的数据透视表。虽然现在我只需要将原始数据输入到工作表中，然后刷新所有数据。这是一次吗？您可以将所有数据复制到一个新列中，然后使用该范围的“数据…删除重复项”选项吗？遗憾的是，没有。我每次都要在工作表中输入多次新数据月份和新名称一直在添加，但并非所有名称都在所有工作表中，因为它们代表不同的数据。然后，我希望在最后一张工作表中有一个数据验证列表，在该列表中，我只能选择一次任何名称，并使公式引用该单元格（列表），以便在名称匹配的情况下一次显示所有工作表中的数据。因此，我只需要一种动态方式，将所有名称放在数据验证列表的一列中，这样我只需输入原始数据，而不是一直手动创建新列表。可能是您想要的结果。最终结果是相同的，尽管我之前浏览了该主题，但无法更改事实上，我一点也不明白。我链接的示例非常简洁，它声称提供了我所需要的，所以我现在需要的是了解我做错了什么，以便我可以使用该解决方案。这是一次吗？你能将所有数据复制到一个新列中，然后使用该范围的“数据…删除重复项”选项吗？不幸的是，不能。我每月多次在工作表中输入新数据，并始终添加新名称，尽管并非所有名称都在所有工作表中，因为它们代表不同的数据。然后，我希望在最后一张工作表中有一个数据验证列表，在该列表中，我只能选择一次任何名称，并让公式引用该单元格（列表），以便在名称匹配的情况下一次显示所有工作表中的数据。因此，我只需要一种动态方式，将所有名称放在数据验证列表的一列中，这样我只需输入原始数据，而不是一直手动创建新列表。可能是您想要的结果。最终结果是相同的，尽管我之前浏览了该主题，但无法更改事实上，我一点也不明白。我链接的示例非常简洁，它声称提供了我所需要的，所以我现在需要的是了解我做错了什么，以便我可以使用该解决方案。是的，宏可以工作，我只需复制列表中的每个列表并粘贴到列表中的最后一个数据下，用于所有列表。我试图避免使用宏虽然我已经准备好让链接的示例按照演示的那样工作，我在D:D中得到A:A+B:B+C:C，但是我只能用与示例中完全相同的代码复制在D:D中列出的A:A。是的，宏可以工作，我只需复制每个列表并粘贴到列表中最后一个数据下，就可以用于所有列表。不过我试图避免使用宏我准备让链接的示例按照演示的那样工作，在D:D中我得到A:A+B:B+C:C，而我只能用与示例中完全相同的代码复制D:D中列出的A:A。。