excel 获取多个工作簿指定位置数据

Sub data_()
 Dim i As Single
 For i = 1 To Worksheets.Count
 Cells(i, 2) = Worksheets(i).Cells(6, 2)
 Next
End Sub
循环遍历数据