你如果是公式难道不需要每个sheet都写一次么？ 你到底有多少个表格 100个以上？
我说的那就是公式啊

引用:

原帖由 leopenny 于 2009-6-2 23:00 发表
你如果是公式难道不需要每个sheet都写一次么？ 你到底有多少个表格 100个以上？
我说的那就是公式啊

公式的话 写一次进去就行了
不用每次都复制啊

不知我理解的对不对

学习了。

在 b2上 写上 =INDIRECT("sheet"&$L$1&"!I"&ROW())

然后向下复制 整列

然后选中sheet6 b列  复制  然后 选中所有sheet 粘贴到B列上  这样所有sheet b列就都有 =INDIRECT("sheet"&$L$1&"!I"&ROW())

然后在每个sheet 的L1 填上前一个sheet的数  例如sheet6 L1填上5 就可以了

当然用vba更快 但能不用vba就不用vba才是高手

[ 本帖最后由 jinwyp 于 2009-6-3 03:13 编辑 ]

引用:

原帖由 jinwyp 于 2009-6-3 03:09 发表
在 b2上 写上 =INDIRECT("sheet"&$L$1&"!I"&ROW())

然后向下复制 整列

然后选中sheet6 b列  复制  然后 选中所有sheet 粘贴到B列上  这样所有sheet b列就都有 =INDIRECT("sheet"&$L$1&"!I"&ROW())

然后在每 ...

受教了

能否给我解释一下这个公式~~~~

写了个宏的。每个excel只需要改下参数执行一次就可以了。
这个可不是公式啊。打开宏里面有注释的。
修改前面4个变量就好。
Sub test()
maxNum = 6  '最大sheet数 比如现在最大的sheet是sheet6 所以是6
minNum = 5 '最小sheet数 比如现在最小的sheet是sheet5 所以是5
fristRow = 4 '起始行
lastRow = 72 '结束行
For i = maxNum To minNum + 1
    For j = fristRow To lastRow Step 3
        Sheets("Sheet" & i).Cells(j, 2).Value = Sheets("Sheet" & (i - 1)).Cells(j, 9).Value
    Next j
Next i
End Sub

[ 本帖最后由 cc0128 于 2009-6-3 10:04 编辑 ]

引用:

原帖由 cc0128 于 2009-6-3 10:03 发表
写了个宏的。每个excel只需要改下参数执行一次就可以了。
这个可不是公式啊。打开宏里面有注释的。
修改前面4个变量就好。
Sub test()
maxNum = 6  '最大sheet数 比如现在最大的sheet是sheet6 所以是6
minNum = ...

vba基础太差
有点看不懂

请解释下~~~~~~~~