Question

excel用VBA实现Sheet2!A1=Sheet1!A1的公式而不是值,Sheet3!A1=Sheet1!A2,Sheet4!A1=Sheet1!A3，以此类推

Sub a()
For i = 1 To Sheets.Count
Sheets(i).[A1] = Sheets(1).Cells(i, 1)
Next
End Sub
用这个的话，设另有一张表'0'!B1=5,Sheet1!A1='0'!B1时,用这个可以得到文本，即 Sheets2!A1='0'!B1，但是不能直接使 Sheets2!A1=5

Answer 1

其实，我没看懂你的描述，

设另有一张表'0'!B1=5,Sheet1!A1='0'!B1时,用这个可以得到文本，即 Sheets2!A1='0'!B1，但是不能直接使 Sheets2!A1=5

不明白你是什么意思。而且不明白怎么与B1单元有关系了。

但是，可以试试以下代码：

Public Sub BlGzb()
    Dim Sh As Worksheet, i As Long
    For Each Sh In Worksheets
        If Sh.Name <> "Sheet1" Then
            i = i + 1
            Sh.Range("A1").Value = Sheets("sheet1").Range("a" & i).Value
        End If
    Next
End Sub

追问

额……太强了，没有看懂问题都能回答正确……，但是我想问下之前的公式问题出在哪，没有用Value取值吗

追答

其实我还是没明白，是出了什么问题，但是这句代码有问题，
Sheets(i).[A1] = Sheets(1).Cells(i, 1)
你要想一下，i=1时，代码的结果是什么？
没有排除数据源。