i = 3 Dim rng As Range For Each rng In Sheet4.Range("A" & i & ":S" & i) '封面 rng = Sheet1.Range(Sheet4.Cells(2, rng.Column)) Next
上面是我做的项目里面的一段，供参考。
