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
原文：https://www.cnblogs.com/lyzifan/p/12301280.html