もしVBA

Question

に私はVBAで次のコードを書いていelse文：それは私に他がなければ、エラーを与えている

If row_count = 28 Then Range("A28").Select 
    Else 
    Range("A29").Select 
    Selection.End(xlDown).Select 
    Range("B" & row_count & ":AE" & row_count).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Application.CutCopyMode = False 
    Selection.FillDown 
    End If 

。

コードを修正するにはどうすればよいですか？

Answer 1

従って、独自の行（不 ifラインの一部として）上に Range("A28").Selectを移動

：

If row_count = 28 Then 
    Range("A28").Select 
Else 
    Range("A29").Select 
    Selection.End(xlDown).Select 
    Range("B" & row_count & ":AE" & row_count).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Application.CutCopyMode = False 
    Selection.FillDown 
End If 

をif構築物two forms、単一線と複数行があります。同じ行にthen条件のステートメントを置くと、1行のバリアントと見なされるので、elseも同じ行になければなりません。

あなたのケースでは、それはない同じライン上だ、ので、VBは、単一のラインが無いelse句とif文ですので、次の行に「裸」elseが無効であると仮定しています。