Question

我已经搜索了一下，但未能找到这个确切问题的解决方案。关于从我能够找到的多个工作表中复制数据的所有其他线程都希望将工作表中的所有数据合并为一个。但是，我无法根据自己的需要调整代码。

我有一个包含可变数量工作表的工作簿。有两个固定工作表“错误”和“非错误”，以及许多其他工作表，其确切数量将有所不同（工作表的名称也是如此）。如果您很好奇，工作表是由特定数据输入的另一个宏创建的，因此根据输入的性质，每次运行程序时，数字/名称都会不同。因此，这些工作表的布局是所有工作表的标准，我需要的数据在每个工作表的同一组单元格中。

在我需要复制到新工作表的每个工作表上的标题下，有一小部分数据（包含公式，但我只需要公式输出的值，而不是公式本身） header是数据集来自的工作表的名称。我正在运行蒙特卡罗模拟，这就是为什么我需要这个相当具体的数据集。

因此，假设每个变量工作表都设置如下：

（工作表名称：酒店）

Columns: A      B       C       D
        data   data    DATA    DATA

数据全部是数字。小写数据是我不需要的东西，大写是我需要的东西。

我希望能够从每个工作表中获取DATA，并将其复制到一个看起来像这样的新工作表（确切的布局并不重要，真的，我对Excel宏编码很了解调整布局，我只是不知道如何进行这种类型的解析）：

Columns:   hotel    potato    church  (all worksheet names)
          DATA C    DATA C    DATA C
          DATA D    DATA D    DATA D

DATA C和DATA D是原始工作表中C和D列的DATA，如上所述。

无论如何，任何人都可以帮我解决这个问题吗？

我很抱歉我没有提供任何代码，但我完全不知道如何完成此操作。即使你只是指出我正确的方向，我也会非常感激。

Answer 1

高级空中代码看起来像这样计算数据工作表的数量（nSheets）维数变量数组：
Dim Ansa（）作为变体
Redim Ansa（2，nSheets）
然后循环数据工作表，得到2个单元格值并将它们放入变量数组中，
然后将变量数组写入新工作表

Excel宏解析来自多个工作表的数据（带有工作表名称）

1 个答案: