其实，我没看懂你的描述，
设另有一张表'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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024