if valueのVBAコードは、同じ列の<value 1 cell agoです

Question

VBAコードを探しています。

列内の任意のランダムなセルが同じ列の前のセルよりも小さい場合、

Column D Column E 
.01112  A 
.01114 
.01113 
.01112  A 
.01114 

すなわち、列E.

に「A」を配置。これは、私がこれまで持っているものです：

Sub ATest() 



Dim rngCell As Range, _ 
     rngDataRange As Range 

    Set rngDataRange = Range("D1:D5000") 

    rngDataRange.Offset(0, 1).Value = rngDataRange.Value 

    For Each rngCell In rngDataRange 
     With rngCell 

      If .Value > 0.1 And .Value < 0.5 Then 
      .Offset(0, 3).Value = .Value 'A[rngCell] to C[rngCell] 
      End If 
     End With 
    Next rngCell 
End Sub 

Answer 1

あなたのサンプルでは、​​値が次行の値よりも小さい場合、あなたが実際にそう、列Eに「A」を配置することを意味しあなたのコードに余分なIfステートメントが追加されます：

Sub ATest() 
    Dim rngCell As Range, _ 
     rngDataRange As Range 

    Set rngDataRange = Range("D1:D5000") 

    'This statement doesn't seem to be desired if you want to put the "A" 
    'in column E 
    'rngDataRange.Offset(0, 1).Value = rngDataRange.Value 

    For Each rngCell In rngDataRange 
     With rngCell 

      If .Value > 0.1 And .Value < 0.5 Then 
      .Offset(0, 3).Value = .Value 'A[rngCell] to C[rngCell] 
      End If 
      If .Value < .Offset(1, 0).Value Then 
       .Offset(0, 1).Value = "A" 
      End If 
     End With 
    Next rngCell 
End Sub