电子表格名称和每个

Question

我必须将几个电子表格的结果排序为另一个。每个电子表格的名称都与“ ramais”数组中的扩展名相同。

我想使用For Each在扩展名下命名的电子表格中获取我想要的信息，并将其放在“ totais”电子表格的一列上。

实际上我在这里有这个小家伙：

Sub relatoriofinal()

Sheets("Relatorio final").Select
Range("a2").Activate

Dim ramais
ramais = Array(2100, 2101, 2102, 2103, 2104, 2105, 2106, 2017, 2108, 2109, 2110)
Dim element As Variant
Dim firstAddress As String, c As Range, rALL As Range

For Each element In ramais
ActiveCell = element

Sheets("2100").Range("E3:F3").Copy
Worksheets("Relatorio final").Range("C2:C3").PasteSpecial xlPasteValuesAndNumberFormats

ActiveCell.Offset(1, 0).Select
Next


End Sub

我想改变

Sheets("2100").Range("E3:F3").Copy

类似

Sheets("element").Range("E3:F3").Copy

因此它将在每个工作于元素的命名电子表格上正确搜索。

我该怎么办？