我在sheet1中竖向复制了N个一样的计算表，怎么在sheet2里面把这个N个一样的计算表中相对位置一样的数值引用出来啊，看帮助一下午了还是没搞出来

百度出来的结果：

在原工作薄新建一个工作表，放在最前面

假设原工作薄中有100张表

alt+f8，插入宏
然后把下面的东西粘贴进去，再alt+f8,执行就可以了

Sub abc()
Dim i, j

For i = 1 To 100 '100是你工作薄中工作表的数目，数字大于工作表数目的话，会提示越界，可以不用关

ActiveWorkbook.Worksheets(1).Cells(i, 1).Value = ActiveWorkbook.Worksheets(i + 1).Range("a2".Value

Next i
End Sub
刚刚开始学vba，很多关键词记不住，你就讲究用吧……

=========
反正问题解决了……你管那个干吗……
很多关键词不知道怎么写，你再问别人吧 忙着呢……
回答者： sky0511 - 魔法师 四级 2-13 10:42
我来评论>>
提问者对于答案的评价：For i = 1 To (ActiveWorkbook.Worksheets.Count - 1) ' 改用count

谁给解释一下啊

如果都是数字的话直接写=worksheets（）.cells（）不行吗

最高能上传个附件，看不懂再说什么

Sub abc() 创建子过程abc()数组
Dim i, j 建立i j两个常量

For i = 1 To 100 '100是你工作薄中工作表的数目，数字大于工作表数目的话，会提示越界，可以不用关
for循环开始， 1到100 step 为1 ，1+1+1+1到100
ActiveWorkbook.Worksheets(1).Cells(i, 1).Value = ActiveWorkbook.Worksheets(i + 1).Range("a2".Value
看不懂了
Next i for循环结束
End Sub 子过程结束