Vba VB脚本从excel中特定行数后的单元格中选择数据

我需要将数据从一个工作表复制到另一个工作表，以便在选择第一行之后，它将跳过大约5行以获取另一个数据

我的初始数据如下所示：

Row|Col A
  1|abc
  2|def
  3|ghi
  4|jkl
  5|mnp
  6|oqr
  7|stu
  ...

代码应产生以下输出：

Row|Col A
  1|abc
  2|oqr
  ...

---

这将把第一个单元格从表1复制到表2，然后每隔5个单元格复制一次。e、 g.将表1中的1,6,11,16转换为表2中的1,2,3,4

要将其更改为7行，只需将i上的乘数更改为该值

Cells(1 + i * 5, 1).

要更改其复制的行数，请更改以下行

For i = 0 to 2

守则：

Sub copyData()

For i = 0 To 2
    Sheets("Sheet2").Cells(1 + i, 1).Value = Sheets("Sheet1").Cells(1 + i * 5, 1).Value
Next i

End Sub

如果希望从当前选定的单元格开始，请使用以下版本：

Sub copyData()

For i = 0 To 2
    Sheets("Sheet2").Cells(1 + i, 1).Value = Sheets("Sheet1").Cells(ActiveCell.row + i * 5, ActiveCell.Column).Value
Next i

End Sub

那么：

Sub dural()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim N As Long
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    N = s1.Cells(Rows.Count, "A").End(xlUp).Row
    s1.Range("A1").Copy s2.Range("A1")
    s1.Range("A6:A" & N).Copy s2.Range("A2")
End Sub

---

欢迎来到S.O。！您的数据是否存在于Excel文件中（意味着您希望使用VBA，而不是VB.net）？非常感谢您的朋友。你解决了我的问题。我能在几分钟内完成我的工作。如果将来需要excel，请为我提供一些教程。您希望@Apoorv Rastogi更详细地解释的代码是什么？就像初学者一样。我是这方面的新手。但我喜欢编码。这就是为什么，我要了一些电子书或网站，在那里我可以学到这些东西。@ApoorvRastogi学习编码的唯一方法就是尝试失败，然后再试一次，有点恼火，然后突然它就成功了！就资源而言，这个网站很棒，但也有关于所有内置对象和函数的良好文档