エクセル ＶＢＡ中の関数について

質問

エクセルにてＶＢＡ中の文章で、
Ｄ7からＤ11に、何もなければそのまま。何かあればＢ7からＢ11に表示する。という文章を教えてください。
Ｂには常に値が入力されています。実行時、Ｂが空白にならない様にしたいです。
ＩＦ関数はわかるのですが、ＶＢＡ中はどのように使用すれば良いのかわかりません。よろしくお願いします。

回答No.2

mshr1962 · ベストアンサー

Sub MACRO1()
If Application.WorksheetFunction.CountBlank(.Range("D7:D11")) < 5 Then
Range("D7:D11").Select
Selection.Copy
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End If
End Sub

お礼

ありがとうございました。
やりたい事ができました！！！毎日の作業ですので教えてもらって本当に助かりました。

回答No.1

hana-hana3

こんな感じでしょうか？

With Sheets("sheet1")
If Application.WorksheetFunction.CountIf(.Range("D7:D11"), "<>") > 0 Then
.Range("D7:D11").Copy .Range("B7:B11")
End If
End With

補足

早速回答ありがとうございます。
しかし、困ったことに、Ｄが全て値ありorなしであれば良いのですが
B7　値あり　　　D7　　値なし
B8　値あり D8　　値あり
B9　値あり D9　　値なし
B10　値なし D10　値なし
B11　値なし D11　値なし

（Ｂに値がなしの時は、Ｄも必ずなしです。）
という風に、上記のようにバラつくと上手くいきません。
なにか良い方法はないでしょうか？