我如何讓它從第41行開始？

A.霍克

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

來源

2013-09-27 AMWHoek

我不明白你的問題... –

很抱歉，如果問題不明確。宏啓動時，它會將值複製到Sheet2（行A2，B2等..）。但我希望它將其複製到A41，B41。 – AMWHoek

如何：

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

來源

2013-09-27 15:56:03

你的意思是這樣嗎？

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

來源

2013-09-27 15:52:45 tigeravatar

是的，非常感謝！ – AMWHoek

+ 1很好。 –

我如何讓它從第41行開始？

回答

相關問題