excel 获取多个工作簿指定位置数据
Sub data_() Dim i As Single For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Cells(6, 2) Next End Sub
循环遍历数据
Sub data_() Dim i As Single For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Cells(6, 2) Next End Sub
循环遍历数据