VBAコードは、特定の列のセルをコピーし、条件に基づいて別のシートの特定の列のセルに貼り付ける（値）

Question

ここでVBAのnoobは、私はSheet1の特定の列からコピーし、Sheet2ベースの特定の列にpastevalueする必要があります2条件で詳細（それはコードではありません）：だから

i=2 & j=4 

IF Sheet1.Cells(i, 4)<>0 and Sheet1.Cells(i, 49)<>0, Type "FK" in _ 
Sheet2.Cells(j, 1), Type "OF" in Sheet2.Cells(j + 1, 1), copy the following 

Copy from **Sheet1**  Paste in **Sheet2** 
Cells(i, 52)    Cells(j, 2) 
Cells(i, 51)    Cells(j, 3) 
Cells(i, 4)    Cells(j, 4) 
Cells(i, 1)    Cells(j, 5) 
Cells(i, 53)    Cells(j, 6) 
Cells(i, 7)    Cells(j, 7) 
Cells(i, 10)    Cells(j, 8) 
Cells(i, 5)    Cells(j, 9) 
Cells(i, 6)    Cells(j, 10) 
Cells(i, 49)    Cells(j, 11) 
Cells(i, 50)    Cells(j, 12) 
Cells(i, 51)    Cells(j, 13) 
Cells(i, 51)    Cells(j, 15) 
Cells(i, 51)    Cells(j, 16) 
Cells(i, 51)    Cells(j, 17) 
Cells(i, 19)    Cells(j + 1, 2) 
Cells(i, 20)    Cells(j + 1, 3) 
Cells(i, 44)    Cells(j + 1, 4) 
Cells(i, 28)    Cells(j + 1, 5) 
Cells(i, 30)    Cells(j + 1, 6) 
Cells(i, 37)    Cells(j + 1, 7) 
Cells(i, 41)    Cells(j + 1, 8) 
Cells(i, 46)    Cells(j + 1, 9) 
Cells(i, 51)    Cells(j + 1, 10) 
Cells(i, 51)    Cells(j + 1, 11) 

next i 

IF Sheet1.Cells(i, 4)<>0 and Sheet1.Cells(i, 49)=0, Type "OF" in _ 
Sheet2.Cells(j, 1), copy the following 

Copy from **Sheet1** Paste in **Sheet2** 
Cells(i, 19)   Cells(j, 2) 
Cells(i, 20)   Cells(j, 3) 
Cells(i, 44)   Cells(j, 4) 
Cells(i, 28)   Cells(j, 5) 
Cells(i, 30)   Cells(j, 6) 
Cells(i, 37)   Cells(j, 7) 
Cells(i, 41)   Cells(j, 8) 
Cells(i, 46)   Cells(j, 9) 
Cells(i, 51)   Cells(j, 10) 
Cells(i, 51)   Cells(j, 11) 

next i 

Else, next i (start again for i + 1) 

、基本的に私は何をしようとしている条件1が真であるならば、私は1行からデータをコピーして別の次の2つの空の行に貼り付けます、ですシート。一方、条件2が真であれば、1行のデータをコピーして、別のシートの次の空の行に貼り付けます。長いポストに申し訳ありません、それを説明する他の方法を知らないでください。これまでにありがとうございました。

Answer 1

これはあなたが望むものをやっている：

Sub copyABunchOfThings() 

    Dim i As Integer, j As Integer 
    i = 2 
    j = 4 

    For i = 1 To 10 'Change 1 and 10 into your numbers. 

    If Sheet1.Cells(i, 4) <> 0 And Sheet1.Cells(i, 49) <> 0 Then 
     Sheet2.Cells(j, 1).Value = "FK" 
     Sheet2.Cells(j + 1, 1).Value = "OF" 

     'Put in **Sheet 2** what is in **Sheet 1** 
     Sheet2.Cells(j, 2) = Sheet1.Cells(i, 52) 
     Sheet2.Cells(j, 3) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j, 4) = Sheet1.Cells(i, 4) 
     Sheet2.Cells(j, 5) = Sheet1.Cells(i, 1) 
     Sheet2.Cells(j, 6) = Sheet1.Cells(i, 53) 
     Sheet2.Cells(j, 7) = Sheet1.Cells(i, 7) 
     Sheet2.Cells(j, 8) = Sheet1.Cells(i, 10) 
     Sheet2.Cells(j, 9) = Sheet1.Cells(i, 5) 
     Sheet2.Cells(j, 10) = Sheet1.Cells(i, 6) 
     Sheet2.Cells(j, 11) = Sheet1.Cells(i, 49) 
     Sheet2.Cells(j, 12) = Sheet1.Cells(i, 50) 
     Sheet2.Cells(j, 13) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j, 15) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j, 16) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j, 17) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j + 1, 2) = Sheet1.Cells(i, 19) 
     Sheet2.Cells(j + 1, 3) = Sheet1.Cells(i, 20) 
     Sheet2.Cells(j + 1, 4) = Sheet1.Cells(i, 44) 
     Sheet2.Cells(j + 1, 5) = Sheet1.Cells(i, 28) 
     Sheet2.Cells(j + 1, 6) = Sheet1.Cells(i, 30) 
     Sheet2.Cells(j + 1, 7) = Sheet1.Cells(i, 37) 
     Sheet2.Cells(j + 1, 8) = Sheet1.Cells(i, 41) 
     Sheet2.Cells(j + 1, 9) = Sheet1.Cells(i, 46) 
     Sheet2.Cells(j + 1, 10) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j + 1, 11) = Sheet1.Cells(i, 51) 

    ElseIf Sheet1.Cells(i, 4) <> 0 And Sheet1.Cells(i, 49) = 0 Then 
     Sheet2.Cells(j, 1) = "OF" 

     'Put in **Sheet 2** what is in **Sheet 1** 
     Sheet2.Cells(j, 2) = Sheet1.Cells(i, 19) 
     Sheet2.Cells(j, 3) = Sheet1.Cells(i, 20) 
     Sheet2.Cells(j, 4) = Sheet1.Cells(i, 44) 
     Sheet2.Cells(j, 5) = Sheet1.Cells(i, 28) 
     Sheet2.Cells(j, 6) = Sheet1.Cells(i, 30) 
     Sheet2.Cells(j, 7) = Sheet1.Cells(i, 37) 
     Sheet2.Cells(j, 8) = Sheet1.Cells(i, 41) 
     Sheet2.Cells(j, 9) = Sheet1.Cells(i, 46) 
     Sheet2.Cells(j, 10) = Sheet1.Cells(i, 51) 
     Sheet2.Cells(j, 11) = Sheet1.Cells(i, 51) 
    End If 

    Next i 

    End Sub