excel vba从一张表格复制到另一张表格

我有一个Excel文件的这个问题。 我在这个文件中总是在相同的单元格(范围O2:O6)中有200张,我有一定的值复制在一个唯一表(命名为“最终”)在同一列CI我也想订购这个值我复制并粘贴; 我会(或许)使用该命令,否则,以了解顺序:实际上,在所有表单的单元格A1中有该表单的参考名称(一些表具有名称A,其他B,其他C);我必须为了在最终表单中,名称为A的表格值为名称B,然后名称为C的表格的值,所以实际上我会这样做,“如果(在每个表格的单元格A1中存在字母A )然后(复制相对值)“,然后在该单元格中名称为B的工作表的所有值,然后命名C.你能帮我吗?

这将使您开始,它循环通过工作表,并复制范围到“最终”工作表。

它不会按顺序复制工作表,你可以使用我的例子,并创build一个循环来做到这一点。

Sub Do_Something() Dim sh As Worksheet Dim ws As Worksheet Set ws = Sheets("Final") With ws For Each sh In Sheets If sh.Name <> ws.Name Then sh.Range("O2:O6").Copy .Cells(.Rows.Count, "C").End(xlUp).Offset(1) End If Next sh End With End Sub 

但我的问题是顺序,复制是好的。 我想复制该范围,但之前从一些工作表,然后从其他人,关于该单元格中包含的名称