按住alt依次按f11,i,m 粘贴下面代码做必要修改后按f5 Sub test() Sheets.Add Sheets(1) For i = 2 To Sheets.Count With Sheets(i) Cells(i, 1) = .Range("b3") 'b3值写入当前表的第1列 Cells(i, 2) = .Range("a1") 'a1值写入当前表的第2列 Cells(i, 3) = .Range("d4") 'd4值写入当前表的第3列 '仿照上面语句添加其他要取的值 End With Next End Sub