excerl提取数据等固定数值

假设汇总表和各房号表位于同一个文件，则：
房号这列用手工填，然后，B:F分别输入
B2输入
=INDIRECT(A2&"!I3")&""
C2输入
=INDIRECT(A2&"!E4")
D2输入
=INDIRECT(A2&"!I4")
E2输入
=INDIRECT(A2&!E5")
F2输入
=INDIRECT(A2&"!D7")
然后，选中B2：F2，下拉填充公式即可。

如果不想手工输入房号，则在这个文件中再新建一个工作表，按【ALT+F11】，双击左侧树形结构中新建的工作表，将下述代码粘贴到右侧编辑区，执行主菜单中“运行”——“运行子过程/用户窗体”，即可得到你要的结果。
Sub HZ() Dim sj(), i% ReDim sj(Sheets.Count - 2, 5): i = -1 For Each sh In Sheets If sh.Name <> ActiveSheet.Name And sh.[i3] <> "" Then i = i + 1 sj(i, 0) = sh.Name sj(i, 1) = sh.[i3] sj(i, 2) = sh.[e4] sj(i, 3) = sh.[i4] sj(i, 4) = sh.[e5] sj(i, 5) = sh.[d7] End If Next If i > -1 Then ActiveSheet.[a2].Resize(i + 1, 6) = sj End Sub