VBAコピー貼り付け

Question

1枚のシートから別のシートにデータをコピー＆ペーストするVBAを書きました。 VBAは、データがシート2にある行に対してのみ動作します。自動的に次の行に移動するにはVBAが必要です。次の行にデータがなくなるまでこれを行う必要があります。下の例では、すでに3行後です。

data

Sub goeie() 
    With Sheets("A") 

    'bord 2 verwijzingen 
    .[C42].FormulaR1C1 = "=blad2!R[4]C[13]" 
    .[D42].FormulaR1C1 = "=blad2!R[4]C[10]" 
    .[E42].FormulaR1C1 = "=blad2!R[4]C[10]" 
    .[F42].FormulaR1C1 = "=IF(blad2!R[4]C[11]=""S235"",235,355)" 

    'bord 1 verwijzingen 
    .[C43].FormulaR1C1 = "=blad2!R[3]C[9]" 
    .[D43].FormulaR1C1 = "=blad2!R[3]C[6]" 
    .[E43].FormulaR1C1 = "=blad2!R[3]C[6]" 
    .[F43].FormulaR1C1 = "=IF(blad2!R[3]C[7]=""S235"",235,355)" 

    'deur 
    .[C56].FormulaR1C1 = "=blad2!R[-10]C[3]" 
    .[D56].FormulaR1C1 = "=blad2!R[-10]C[1]" 
    .[E56].FormulaR1C1 = "=blad2!R[-10]C[2]" 
    .[F56].FormulaR1C1 = "=IF(blad2!R[3]C[2]=""V"",""X-as"",""Y-as"")" 
    End With 

    With Sheets("Blad2") 
    .[R46].FormulaR1C1 = "=A!R[12]C[1]" 
    End With 

End Sub 

Answer 1

あなたはこの

例行うためにオフセットを使用する必要があります：あなたは列と行の間を移動する方法を知っているように、私は複数の例が含まれて

 pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = .Value 
    pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(0, 1).Value = .Value 
    pasteSheet.Cells(pasteSheet.Rows.Count, 1).End(xlUp).Offset(0, 2).Value = .Value 

を:)オフセット（行、列）