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

「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
とすると、質問タイトルのエラーが出ます。何がいけないのでしょうか？

投稿日時 - 2008-09-09 21:32:51