VBA想将这两个公式一起直接放在一个表格中，出数据怎么合并，谢谢

2222223.

Sub lqxs()
Dim Arr, i&, Sht As Worksheet, n&
n = 1
For Each Sht In Sheets
If Sht.Name <> "汇总" Then
Arr = Sht.[b300:j300]
n = n + 1
Cells(n, 1) = Sht.Name
Cells(n, 2).Resize(1, 9) = Arr
End If
Next
End Sub



Sub zjx891103()
Dim sht As Worksheet, k&
k = 2
For Each sht In Worksheets
If sht.Name <> "汇总" Then
Cells(k, 1) = sht.Range("B5")
Cells(k, 2) = sht.Range("E11")
Cells(k, 3) = sht.Range("G11").End(3)
k = k + 1
End If
Next
End Sub


我是做表格的，以上的数据我调试出来的，但是无法同时使用此两项的数据，有哪位大神可以给解惑一下，谢谢

不知道为什么

没有附件的求助很难得到解决！

2222223.

不知道为什么 发表于 2018-9-6 15:19
没有附件的求助很难得到解决！

谢谢啊   刚才没注意到无附件