ネストされ、ネストされている場合

Question

ネストされたforとネストされたifステートメントを一緒に実装しようとしています。私は以下の列を持っています。範囲が500-1000の間であれば列を見る必要があり、それが1000を超える場合には推奨列a（すなわち、推奨列を別の列に書く）が応答列に別の推奨を与えるはずである。

Income Recommendation 
550  a 
1200  b 
750  a 
1400  b 
600  a 

Dim i As Integer 
Dim j As Integer 


    For i = 2 To Range(i, 1).End(xlDown).Row 

     If Cells(i, 1).Value > 1000 Then 

     Cells(i, 10).Value = "b" 

     i = i + 1 

     Else 
      If Cells(i, 1).Value < 1000 Then 
       If Cells(i, 1).Valie > 500 Then 
       Cells(i, 10).Value = "a" 
       End If 
       End If 
     i = i + 1 
     End If 
    Next i 
End Sub 

Answer 1

あなたはSelect Caseと、このようにそれを行うことができます。

Public Sub TestMe()  

    Dim i As Long 
    Dim j As Long 

    With ActiveSheet 
     For i = 2 To .Cells(1, 1).End(xlDown).Row  
      Select Case True  
       Case .Cells(i, 1) > 1000 
        .Cells(i, 10) = "b"  
       Case .Cells(i, 1) < 1000 And .Cells(i, 1) > 500 
        .Cells(i, 10).value = "a"  
      End Select 
     Next i 
    End With 
End Sub 

それはより多くの目に見えるし、もう少し理解しやすいです。また、将来の参照問題を避けるために、ワークシート（この場合はwith ActiveSheet）を参照するようにしてください。

Answer 2

いくつかのエラー：

1. はそれがForループの開始と終了値を設定している間の値を有するiに依存しないでください - Range(i, 1)を計算しながら、それは0であることを良いチャンスがあります。 （編集：テストして、最終値が計算されている時点でまだ0であることを確認しました）Range(0, 1)を使用すると、1004エラーが発生します。

2. ループ内のループカウンタをインクリメントしないでください（つまり、i = i + 1を実行しないでください）。実際に2行おきに処理したい場合はStep 2をForステートメントで使用してください。

3. .Valie.Value

4. 行のIntegerデータ型は使用しないでくださいする必要があります - ExcelはIntegerが対処できる以上である1048576行を扱うことができ、これらの日を。

5. Range(1, 1)は無効な構文です。 2つのパラメータをRangeプロパティに渡すときは、セル参照である必要があります。行と列を渡すことは、プロパティを使用するときに使用されるものです。 （だから、Range(1, 1)はCells(1, 1)、またはRange("A1")する必要があります。）

のリファクタリング、コードが与えるだろう：

Dim i As Long 

    For i = 2 To Cells(1, "A").End(xlDown).Row 

     If Cells(i, "A").Value > 1000 Then 
      Cells(i, "J").Value = "b" 
     ElseIf Cells(i, "A").Value > 500 Then 
      Cells(i, "J").Value = "a" 
     Else 
      Cells(i, "J").Value = "" 
     End If 
    Next i 
End Sub