一个工作簿n张工作表 我要提取每张表的（1，2）（6，2）单元格的数据 然后存到第n+1个表中 应该怎么做

到底有不有人阿 怎么没有人回答呢

Public Sub test() Dim n As Integer n = Worksheets.Count Sheets.Add For i = 1 To n Worksheets(n + 1).Cells(i, 4).Value = Worksheets(i).Cells(1, 2).Value Worksheets(n + 1).Cells(i, 5).Value = Worksheets(i).Cells(6, 2).Value NextEnd Sub代码有点小问题，暂时还没有找到原因，你自己看看。

代码更正如下：Public Sub test() Dim n As Integer n = Worksheets.Count Sheets.Add after:=Worksheets(Worksheets.Count) For i = 1 To n ActiveSheet.Cells(i, 1).Value = Worksheets(i).Cells(1, 2).Value ActiveSheet.Cells(i, 2).Value = Worksheets(i).Cells(6, 2).Value NextEnd Sub已经编译通过。呵呵。

哈哈 我来晚了 还是谢谢哦 非常感谢