Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$D$13" Then Exit Sub
If Target = "倍數" Then [D27:D27] = "" Else [D27:D27].FormulaR1C1 = "某公式"
'以下是第二段
If Target.Address <> "$E$13" Then Exit Sub
If Target = "倍數" Then [E27:E27] = "" Else [E27:E27].FormulaR1C1 = "某公式"
End Sub