2

どうすれば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
4

2 に答える 2

3

こんな感じですか？

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-27T15:52:45.620 に答える
0

どうですか：

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-27T15:56:03.317 に答える