質問: "あ" end if end sub
回答: プランクだったら cells(1, 1).value = "" ブランクでなかったら cells(1, 1).value <> "" になります。 & は使わずに and と書きます。 private sub worksheet_selectionchange(byval target as range) if cells(1, 1).value = "" and cells(2, 1).value = "" then cells(1, 2).value = "あ" end if end sub