-excel 宏 引用单元格,vba读取另外excel单元格值

我理解的是:楼主需要：
Sheet2!A1=Sheet1!A2
Sheet3!A1=Sheet1!A3
……
Sheet9!A1=Sheet1!A9
……
Sheet100!A1=Sheet1!A100

有两种情况，一种为各工作表的名字都叫 Sheetx(x为整数)，而且上面公式所含 Ax 中的 x 也正是各 Sheetx中的 x；
代码如下：
Sub Test1() '按工作表名后面的序号
Dim m As Worksheet
For Each m In ThisWorkbook.Sheets
If m.Name <> "Sheet1" Then
m.Select
m.Range("A1").Formula = "=Sheet1!A" & Right(m.Name, Len(m.Name) - 5)
End If
Next m
End Sub

另一种情况，各工作的名称不一定叫e79fa5e98193e59b9ee7ad94361Sheetx，只希望按位置顺序来算，那么代码如下：
Sub Test2() '按工作表顺序
Dim m As Worksheet, i As Integer
i = 2
For Each m In ThisWorkbook.Sheets
If m.Name <> "Sheet1" Then
m.Select
m.Range("A1").Formula = "=Sheet1!A" & i
i = i + 1
End If
Next m
End Sub

有疑问，请Hi我或给我发百度消息
GoodLuck!