2011-09-01 59 views
0

我已经搜索了一下,但一直未能找到解决此问题的解决方案。所有其他关于从我能够找到的多个工作表中复制数据的线索都希望将工作表中的所有数据合并为一个。但是,我一直无法使这些代码适应我的需求。Excel宏解析来自多个工作表(含工作表名称)的数据

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

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

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

(表姓名:酒店)

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 

数据c和数据d从列C和原来的工作表的d的数据,我上面所解释的。

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

我很抱歉,我没有任何代码提供,但我完全丧失了如何完成这一点。即使你只是将我指向正确的方向,我也会非常感激。

回答

0

高级别空气代码看起来是这样的
计数数据的工作表(nSheets) 尺寸变体阵列的数目:
昏暗安莎()作为变体
REDIM安莎(2,nSheets)
然后循环在数据工作表上,获取2个单元格值并将它们放入变量数组中,
然后将变量数组写入新工作表