|
質問します。私はVBAの知識が無いに等しい者ですが、どうしても自動処理したく、下記の処理VBAの教示を御願い致します。
「C列に数値を指示、E列はある処理(外部から入力)により刻々数値が上下変わる。セルE5の値が、たまたまセルC5の数値と合致した時、セルC5の数値をセルD5にコピーする。同様に上下動いているセルE6の数値がセルC6の数値と合致した時、C6の値をD6にコピーする。」
C列 D列 E列
5行 240 240 240 <------数値が合致でセルD5にコピー
6行 50 46
マクロとif〜thenを合体してマクロを動かしても駄目でした。
If Range("E5") = Range("C5") Then
Range("C5").Select
Selection.COPY
Range("D5").Select
ActiveSheet.Paste
End If
If Range("E6") = Range("C6") Then
Range("C6").Select
Application.CutCopyMode = False
Selection.COPY
Range("D6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
|
|