我怎么能让它从第41行开始？

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

A. Hoek

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 = 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 

Answer 2

你是这个意思吗？

 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