[已解决]在同一个表格中，不同子表之间的复制

王良亮a

在一个电子表格中有n个表格，怎么把sheet1中的数据一次复制到sheet2、sheet3、sheetn  中

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-9-24 19:17

见附件

跳转到最佳答案楼层

这儿有肥猫

复制sheet1的内容，选中其它sheet，粘贴

这儿有肥猫

见附件

pennyfly

vba代码

Sub t3()
   Dim i As Integer
   For i = 1 To n
   Sheets(1).Copy after:=Sheets(Sheets.Count)
   i = i + 1
   Next
End Sub

王良亮a

pennyfly 发表于 2014-9-24 20:04
vba代码

Sub t3()

谢啦。。。

王良亮a

这儿有肥猫 发表于 2014-9-24 19:17
见附件

表格地下的sheet1、2、3、4可以设置自动排序么。只显示1、2、3、4、5、6

这儿有肥猫

王良亮a 发表于 2014-9-25 10:02
表格地下的sheet1、2、3、4可以设置自动排序么。只显示1、2、3、4、5、6

不理解

王良亮a

这儿有肥猫 发表于 2014-9-25 10:07
不理解

自动命名排序成1、2、3、4.不用显示成sheet1、sheet2   

这儿有肥猫

王良亮a 发表于 2014-9-25 10:32
自动命名排序成1、2、3、4.不用显示成sheet1、sheet2

用vba

pennyfly

王良亮a 发表于 2014-9-25 10:32
自动命名排序成1、2、3、4.不用显示成sheet1、sheet2

VBA代码如下，要试验的话见附件，如果好请求最佳答案，哈哈，帮我快快攒经验
Sub t3()
   Dim i As Integer, sh As Worksheet
   For i = 1 To 3
   Sheets(1).Copy after:=Sheets(Sheets.Count)
   Set sh = ActiveSheet
   sh.Name = i
   Next
End Sub