多表汇总

Sub text()
Dim i As Integer
For i = 2 To Sheets.Count
Sheet1.Range("b" & i + 8) = Sheets(i).Range("e5")
Sheet1.Range("c" & i + 8) = Sheets(i).Range("e6")
Sheet1.Range("d" & i + 8) = Sheets(i).Range("e44")
Next
End Sub