我需要代码在两行之间复制并粘贴到另一张表中，并给出任何值？

例如：我有 50 行数据。第一行有学生的名字。 我需要代码将数据从 RAM 复制到 RAMESH。在这之间我有 20 行。 我需要代码来复制行并将其粘贴到另一张纸中。 它不应该问我名字。默认情况下，它必须采用 RAM 和 RAMESH 名称。

好的，下面假设您有一张工作表 StartSheet，并且要复制到的工作表称为 TargetSheet。 它从第 1 行第 1 列开始，并遍历每一行。如果名称匹配，则会将该 rownum 分配给变量。 然后，使用两个 rownums 选择、复制和粘贴行。 此代码不关心名称之间的行数，它只是检查名称本身。 我假设第一列有名称，而不是如您所描述的第一行。

Sub MoveRows()
   Dim rownum As Integer
   Dim colnum As Integer
   Dim startrow As Integer
   Dim endrow As Integer

    rownum = 1
    colnum = 1

     With ActiveWorkbook.Worksheets("StartSheet")
        Do
           If .Cells(rownum, 1).Value = "RAM" Then
              startrow = rownum
           End If
           rownum = rownum + 1
        Loop Until .Cells(rownum, 1).Value = "RAMESH"
        endrow = rownum
        ActiveWorkbook.Worksheets("StartSheet").Range(startrow & ":" & endrow).Copy

     End With
     ActiveWorkbook.Worksheets("TargetSheet").Paste




End Sub