写宏啊。
几个循环搞定

把文件发上。我看看。

写了个宏的。每个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 编辑 ]