0

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

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

在我需要复制到新工作表的每个工作表上,在标题为该组数据来自的工作表的名称。我正在运行蒙特卡洛模拟,这就是为什么我需要这组相当具体的数据。

所以,假设每个变量工作表都是这样设置的:

(工作表名称:酒店)

Columns: A      B       C       D
        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,如上所述。

无论如何,有人可以帮我解决这个问题吗?

我很抱歉我没有任何代码可以提供,但我完全不知道如何完成这个。即使您只是指出我正确的方向,我也将不胜感激。

4

1 回答 1

0

高级空气代码看起来像这样
计算数据工作表(nSheets)的数量,维度为变量数组:
Dim Ansa() as variant
Redim Ansa(2,nSheets)
然后循环数据工作表,获取 2 个单元格的值并将它们放入变量数组中,
然后将变量数组写入新工作表

于 2011-09-01T17:39:15.557 回答