[已解决]分配数据至其它sheet

excelpxfans001

分配数据至其它sheet

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-13 21:28

excelpxfans001 发表于 2016-6-13 21:17
你好老师，前面的0没有粘贴过去。麻烦看下。

这是格式设置问题

跳转到最佳答案楼层

老司机带带我

随机取还是顺序取？
按顺序从上往下取300个数代码如下：

1. Sub xx() '按顺序
   
2.     Dim arr()
   
3.     arr = Array("张", "牛", "李", "白", "工资", "明")
   
4.     For i = 0 To 5
   
5.         Sheets(arr(i)).Range("A1").Resize(300, 1) = Sheet11.Range("G1:G300").Value
   
6.     Next
   
7. End Sub

复制代码

excelpxfans001

老司机带带我 发表于 2016-6-13 20:31
随机取还是顺序取？
按顺序从上往下取300个数代码如下：

行数据会有增减，从最后一个数据往上取数据。分配到各sheet.

也就是数据的多少不是固定的，要从G列最后一个往上提取300个数据。

老司机带带我

excelpxfans001 发表于 2016-6-13 20:46
行数据会有增减，从最后一个数据往上取数据。分配到各sheet.

也就是数据的多少不是固定的，要从G列最后 ...

看错了，至下往上：

1. Sub xx() '按顺序
   
2.     Dim arr()
   
3.     arr = Array("张", "牛", "李", "白", "工资", "明")
   
4.     n = Sheet11.Cells(Sheet11.Rows.Count, 7).End(xlUp).Row
   
5.     For i = 0 To 5
   
6.         Sheets(arr(i)).Range("A1").Resize(300, 1) = Sheet11.Range("G" & n - 300 + 1 & ":G" & n).Value
   
7.     Next
   
8. End Sub

复制代码

excelpxfans001

老司机带带我 发表于 2016-6-13 20:55
看错了，至下往上：

你好老师，前面的0没有粘贴过去。麻烦看下。

老司机带带我

excelpxfans001 发表于 2016-6-13 21:17
你好老师，前面的0没有粘贴过去。麻烦看下。

这是格式设置问题

excelpxfans001

老司机带带我 发表于 2016-6-13 21:28
这是格式设置问题

看代码是一样的，没有修改。 是如何做到的。

老司机带带我

excelpxfans001 发表于 2016-6-13 21:36
看代码是一样的，没有修改。 是如何做到的。

设置了前面几个表格A列的单元格格式与G列的一直

excelpxfans001

老司机带带我 发表于 2016-6-13 21:49
设置了前面几个表格A列的单元格格式与G列的一直

设置成文本格式好像可以。