[已解决]一个隔行填充指定数据的问题

ciyo88

sheet1!A列是提供填充内容的列，现在sheet1!A2填充到sheet2!A7，sheet1!A3填充到sheet2!A17..........(sheet1!A 等差1，sheet2!A等差10），sheet1!A列单元格无内容停止填充，求各位大神指导思路，小弟新学

最佳答案

月排行榜 / 总排行榜

youfang

2014-5-5 20:18

附上注释，请测试

1. Sub 填充()
   
2.     Dim i%, a% '定义变量
   
3.     a = Sheets(1).Range("a65536").End(3).Row '获取工作表1A列最后一行行号
   
4.     For i = 2 To a '建立循环
   
5.         Sheets(2).Cells(-13 + 10 * i, 1) = Sheets(1).Cells(i, 1) '表2等差10，表1等差1
   
6.     Next
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

1091126096

上附件。没附件看起来像是绕口令。

youfang

1. Sub 填充()
   
2.     Dim i%, a%
   
3.     a = Sheets(1).Range("a65536").End(3).Row
   
4.     For i = 2 To a
   
5.         Sheets(2).Cells(-13 + 10 * i, 1) = Sheets(1).Cells(i, 1)
   
6.     Next
   
7. End Sub
   

复制代码

youfang

附上注释，请测试

1. Sub 填充()
   
2.     Dim i%, a% '定义变量
   
3.     a = Sheets(1).Range("a65536").End(3).Row '获取工作表1A列最后一行行号
   
4.     For i = 2 To a '建立循环
   
5.         Sheets(2).Cells(-13 + 10 * i, 1) = Sheets(1).Cells(i, 1) '表2等差10，表1等差1
   
6.     Next
   
7. End Sub
   

复制代码

su45

还要什么思路？你不是很清楚吗？

ciyo88

youfang 发表于 2014-5-5 20:18
附上注释，请测试

对对对就是这个结果，太厉害了，我要怎么才能这样，求认老师

ciyo88

su45 发表于 2014-5-5 20:32
还要什么思路？你不是很清楚吗？

我是清楚，但是是新手，不知道BVA的命令如何写

youfang

ciyo88 发表于 2014-5-5 20:33
对对对就是这个结果，太厉害了，我要怎么才能这样，求认老师

我是在自学网上自学的，网址是  http://www.51zxw.net/study.asp?vip=6293182
上面有VBA、函数、技巧各方面从基础到精通的教程，很容易学的。你试试，觉得好的话你也可以推介给你的朋友