エクセルで特定の文字列が入っていたら別のセルへコピー

質問

１行目のＡＢＣＤ各列には数値が入っており、２行目以降はＤにしか数値が入っていません。
１行目と同じものを２行目以降にコピーするマクロはどう記述したらよいでしょうか。

　Ａ Ｂ Ｃ Ｄ
１ ○ △ □ ●
２ なし なし なし ●
３ なし なし なし ●
４ なし なし なし ●

↓ ↓ ↓
　Ａ Ｂ Ｃ Ｄ
１ ○ △ □ ●
２ ○ △ □ ●
３ ○ △ □ ●
４ ○ △ □ ●

宜しくお願いします！

回答No.3

fujillin · ベストアンサー

A1～C1（○ △ □）をコピーするならANo1の通りです。コピーではなくDの値（●又は○）によって（○ △ □）又は（× △ □）となるのであれば、少しアレンジすれば可能です。

でも、ご質問の内容だけでしたら、マクロではなく式でも可能ですのでその例を・・・
◇1行目をコピーするのなら
　A2に　=IF($D2="●",A$1,"")と記入、C2までドラッグコピー
　A2～C2を選択し、下にドラッグコピー

◇Dの値で（○ △ □）又は（× △ □）となるのなら
　A2に　=IF($D2="●","○",IF($D2="○","×",""))
　B2は　=IF(OR($D2="●",$D2="○"),"△","")
　C2は　B2のコピーの△を□に
　A2～C2を選択し、下へドラッグコピー

回答No.2

n-jun

>もしDに○だったら×△□
×は何を表しているのでしょう？
質問ではＡ～Ｃ列をコピーするとのことでしたが、×がどこからくるのか、
或いは新たな値なのか不明です。

回答No.1

n-jun

Sub test()
　With Range("D2", Cells(Rows.Count, 4).End(xlUp))
　　　Range("A2:C2").Resize(.Rows.Count).Value = Range("A1:C1").Value
　End With
End Sub
ですか？

補足

すみません、Dには●以外が入ることもあるので、「Dに●が入ってたら○△□、もしDに○だったら×△□」という記述ができませんでしょうか。