一个工作簿中有100+个工作表
我要做一个汇总，即提前每一个工作表中C4的数据
如何做下拉的公式

假设你各个工作表命名的规律分别是sheet1、sheet2……sheet100 那么你在汇总表的b2输入=indirect(“sheet”&row(a1)&“！$C$4”） 回车以后 拖住单元格下拉.

'先在当前工作簿中新建一个"汇总"工作表后再运行
Option Explicit
Sub abc()
　Dim sht, m
　ReDim a(Sheets.Count - 1, 1 To 2)
　For Each sht In Sheets
　　If sht.Name <> "汇总" Then m = m + 1: a(m, 2) = sht.[c4].Value
　Next
　a(0, 1) = "订单号": a(0, 2) = "日期"
　With Sheets("汇总")
　　.[a:b].ClearContents
　　.[b:b].NumberFormatLocal = "yyyy.mm.dd"
　　.[a1].Resize(m + 1, 2) = a
　End With
End Sub

indirect函数吧，大概能达到你的目的，如果不能，再配合index、新建名称应该可以

以订单号为表号，在汇总表中查找各个表中的C4单元格数据
B2=INDIRECT(TEXT(A2,"'m-d'")&"!C4")

If sht.Name <> "汇总" Then m = m + 1: a(m, 2) = sht.[c4].Value 修改一下：
If sht.Name <> "汇总" Then m = m + 1: a(m, 2) = sht.[c4].Value:a(m,1)=sht.name

感谢各位大佬
辛苦
搞定了