コピー＆ペーストする2つのセルの中から選択する

Question

VBAとPythonを拾い始めたばかりなので、私の無知を許してください。私は2つのセルの間で選択し、空白でないセルを貼り付けることができる何かをコード化しようとしています。

は、現在、私が思い付いたこのです：

Sub ManualCopyEqual() 
    Set wS1 = Sheets("Neptune") 
    Set wS2 = Sheets("Contact") 

    wS1.Range("U2:U102").Copy 
    wS2.Range("R3:R102").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:=   False, Transpose:=False 

End Sub 

これは私がWS1から行Uをコピーして、WS2に貼り付けることができます。しかし、行Uのセルが空の場合、行Vの情報をコピーできるようにするコードを作成したいと思います。

つまり、U2が空の場合、空白のU2をR3にコピーする代わりに、V2がR3にコピーされるようにコードするにはどうすればよいですか？

ご迷惑をおかけして申し訳ございません。 :)

よろしく、 手形

Answer 1

をコピーしたい場合は、内のセルの範囲を通過するループを使用することができます列は、1から200と言う：

Sub Copy_Loop() 

Dim i as Long 

    For i = 1 to 200 
     If wS1.Range("U" & i).Value = "" Then 
      wS1.Range("V" & i).Copy Destination:= wS2.Range("R" & (i+1)) 
     Else 
      wS1.Range("U" & i).Copy Destination:= wS2.Range("R" & (i+1)) 
     End if 
    Next i 

End Sub 

Answer 2

あなたが唯一の1つのセルは、その後Skaterhaz」と答えたことに加えとして

If wS1.Range("U2").Value = "" Then 
    wS1.Range("V2").Copy Destination:= wS2.Range("R3") 
Else 
    wS1.Range("U2").Copy Destination:= wS2.Range("R3") 
End if