在线求助一个函数，特急特急！没法好好过端午了！

HYUN2000

我有一个文档，里面有多达1000来个工作表，里面有个固定格子，是引用总表里的一个数据，具体见附件样式。

现在的格子，我只是采用：  =XX单元格的方式

想想1000多个表单，害怕啊！
所以来求助万能的EXCELHOME的大侠们，有没有什么公式能直接引用，谢谢啦！

新纪元

问：总表4列的分别名称是什么？，

HYUN2000

新纪元 发表于 2016-6-8 13:22
问：总表4列的分别名称是什么？，

谢谢相助！
总表4列的名称叫“生产批号”

新纪元

“材料名称”，“规格型号”分别在那列？

HYUN2000

新纪元 发表于 2016-6-8 13:38
“材料名称”，“规格型号”分别在那列？

这二个不需要自动，是用手工填写的！

skp669

个人感觉用VBA比较方便

skp669

插入模块，输入如下代码
Sub test()
    Dim i%, sht As Worksheet
    For Each sht In Worksheets
        If sht.Name <> "总表" Then
            sht.Cells(2, 2) = Worksheets("总表").Cells(i + 1, 4)
            i = i + 1
        End If
    Next
End Sub
注意分表按顺序插入

HYUN2000

skp669 发表于 2016-6-8 16:54
插入模块，输入如下代码
Sub test()
    Dim i%, sht As Worksheet

试了一下，很好用！谢谢
另外想问 一下，我的这1000多个表单里面，引用了类似于总表的这个工作表有8个，想问一下，怎么来修改这个VBA？
也就是说1-100引用了总表1，101-200引用了总表2.....

大谢！

skp669

这里假定引用的总表名称为100,200,300,400四个总表，1-20个分表1-5引用总表100,6-10引用总表200，,1-15引用总表300,16-20引用总表400，编写代码如下
Sub test()
    Dim k1%, k2%, k3%, k4%, j$
    For Each sht In Worksheets
        j = sht.Name
        i = j + 0
        Select Case i
        Case Is < 6
            sht.Cells(2, 2) = Worksheets("100").Cells(k1 + 1, 4)
            k1 = k1 + 1
        Case Is < 11
            sht.Cells(2, 2) = Worksheets("200").Cells(k2 + 1, 4)
            k2 = k2 + 1
         Case Is < 16
            sht.Cells(2, 2) = Worksheets("300").Cells(k3 + 1, 4)
            k3 = k3 + 1
        Case Is < 21
            sht.Cells(2, 2) = Worksheets("400").Cells(k4 + 1, 4)
            k4 = k4 + 1
        End Select
    Next
End Sub

skp669

见附件，如下