Excel VBA代码使用循环进行复制和粘贴

Question

我有大量重复数据，我希望能够复制每个唯一值并将其粘贴两次到新工作表中，因此第一个值的A1和A2相同。然后，对于下一个唯一值，我希望A3和A4相同，依此类推，直到该列结尾。我该怎么做呢？我假设它将是某种for或do循环。

因此，假设C列在另一张纸上，但我希望像这样简化数据

Answer 1

您可以使用一个集合，然后输入到其他工作表。 工作表2的C列具有原始数据。

xExcelFile = Dir(xSPath & "*.xls*")
Do While xExcelFile <> ""
    'more code
     xExcelFile = Dir
Loop

Answer 2

多个唯一值

仔细调整常量部分中的变量。前7个变量应该是不言自明的。

$consecAndWaitingMap.get($location)设置为True可在目标工作表上计算第一行，例如如果要将数据附加到该列中已有的数据上。

cBlnTargetFirstRow设置为True可以在新工作表中输出结果，并添加到末尾。

cBlnTargetNewWorksheet是唯一数组大小的增量，即，每次数组满时，该数量都会添加到其大小中。

cIntBuffer