Excel提取多个工作表中同一位置的单元格数据，给力技能！

代码如下： Sub Data_() Dim i As Single For i = 1 To Worksheets.Count Cells(i, 2) = Worksheets(i).Cells(1, 1) Next End Sub