求助自己录制了一段宏，但是不知道如何让他循环下去，谢谢

奇思怪想问题多

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("G104:V104").Select
    Selection.Copy
    Range("F105").Select
    ActiveSheet.Paste
    Range("N106").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=2
    Range("J107").Select
    ActiveSheet.Paste
    Range("M108").Select
    ActiveSheet.Paste
End Sub


问题一：这是我录制的宏 ，请问如何使他循环下去，谢谢 各位
问题二：附件中 我如何将“16”的连线继续下去，或者用什么方法做个这线图之类的 ，谢谢各位
因为没有大量数据，我就把彩票网的数据倒进excel 了  

奇思怪想问题多

好像录制的宏，是不行的，必须手动复制粘贴。其实我是这样做的，先复制 C1到R1之间的单元格，然后 用17减去R2中的数字 11，等于6，则从H2处，进行粘贴；
                                                                                然后 用17减去R3中的数字 12，等于5，则从G3处，进行粘贴;
                                                                                然后 用17减去R4...........

yayahzmeng

1. Sub tst()
   
2.     Dim arr, i%, col%
   
3.     arr = Range("C1:R1")
   
4.     For i = 2 To [r1].End(4).Row
   
5.         col = 2 + 17 - Cells(i, 18)
   
6.         Range(Cells(i, col), Cells(i, col + 15)) = arr
   
7.     Next
   
8. End Sub

复制代码

奇思怪想问题多

yayahzmeng 发表于 2017-1-13 20:30

非常感谢，竟然如此简洁、明了。现在正在学习VBA ，有空要经常研究一下您们写的代码，为什么有些看似很复杂的描述，你们写出来，并不需要很多字。。。。。。。。