Question

我想知道如何从第41行开始粘贴它。先谢谢。

一个。霍克

Sub COPY()

    Dim nextrow As Long
    Dim i As Integer
    i = 41

    nextrow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1


    With Sheet1
        .Range("a2").COPY Sheet2.Range("A" & nextrow)
        .Range("b2").COPY Sheet2.Range("B" & nextrow)
        .Range("C2").COPY Sheet2.Range("C" & nextrow)
        .Range("d2").COPY Sheet2.Range("D" & nextrow)
        .Range("e2").COPY Sheet2.Range("E" & nextrow)
        .Range("f2").COPY Sheet2.Range("F" & nextrow)
        .Range("g2").COPY Sheet2.Range("G" & nextrow)
    End With


End Sub

Answer 1

你的意思是这样吗？

Sub COPY()

    Dim nextrow As Long
    Dim i As Integer

    i = 41

    nextrow = WorksheetFunction.Max(i, Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1)
    Sheet1.Range("a2:g2").COPY Sheet2.Cells(nextrow, "A")

End Sub

Answer 2

怎么样：

Sub COPY()
    Dim nextrow As Long
    Dim i As Integer
    i = 41
    nextrow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    With Sheet1
        .Range("a" & i).COPY Sheet2.Range("A" & nextrow)
        .Range("b" & i).COPY Sheet2.Range("B" & nextrow)
        .Range("C" & i).COPY Sheet2.Range("C" & nextrow)
        .Range("d" & i).COPY Sheet2.Range("D" & nextrow)
        .Range("e" & i).COPY Sheet2.Range("E" & nextrow)
        .Range("f" & i).COPY Sheet2.Range("F" & nextrow)
        .Range("g" & i).COPY Sheet2.Range("G" & nextrow)
    End With
End Sub

我如何让它从第41行开始？

2 个答案: