「elseに対応するifがありません」と表示されます。

質問

If Range("a2") > 0 Then GoTo saisyo
Else
End
End If
saisyo:
Range("a2").Select.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
とすると、質問タイトルのエラーが出ます。何がいけないのでしょうか？

回答No.1

めとろいと（@naktak） · ベストアンサー

Thenの後を改行させてないからです。
Thenの後を改行させなくて良いのは、1行でif文が完結する場合に限ります。

お礼

無事解決しました。
　回答ありがとうございました。