作者：乔山办公网日期：
返回目录：excel表格制作
其实，我没看懂你的描述，zhidao
设另有一张表'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
这两个百表达式的语句是：
Cells(3,1) = Cells(1,1) + Cells(2,1)
Cells(3,2) = Cells(1,2) + Cells(2,2)
我想，如果就是两行，你不会发帖子让大家度写代码，但是知不知道你接下来是C1+C2=C3呢，还是A6=A4+A5，你的心思我猜不透呀，你究道竟是有版100行需要写呢，还是有100列需要写？
如果是100行、权100列，那么语句如下：
for i=1 to 100 step 3
for j=1 to 100
Cells(i+2,j) = Cells(i,j) + Cells(i+1,j)
next j
next i
for each 变量 in 容器
next
for each dyg in range("a1:e10")
msgbox dyg.value
next
遍历a1到e10的每一个单元格的值抄.你可以袭事先往里面填数.
容器可以改成工作表,工作簿
如果知需要溯及既往,for循环道可以用循环节-1来处理,for each就没办法了.
foreach代码更简洁.
右击excel的sheet也名称，点击查百看代码，这时就打开了一个VBA窗口。
VBA都是由 Sub 宏名() 开始，End Sub 结束。
推荐度你一本书《别怕，Excel VBA其实版很简单》，简单通俗，适合初学者。这权个在百度上都能搜得到电子版的。