セルの値が特定の値と一致しない場合に2つのセルを挿入する

Question

このマクロは、最初に列Aのセルの値をチェックすることになっています。次に、セルの値が行番号-2と等しくない場合は、2つの空白セルのセットを入力する必要があります。その後、列Aのセルを行番号-2に設定し、列Bのセルを100％に設定する必要があります。私のコードで何が起こるかは、毎回これを行うのではなく、指定された範囲の最後のセルにのみ行います。

Sub defaultValues() 
    Dim rowPosition As Long 
    Dim columnPosition As Long 
    Dim counter As Long 

    rowPosition = 3 
    columnPosition = 1 
    counter = 3 

    For Each cCell In Range("A3,A18") 
     cCell.Select 
     If ActiveCell.Value <> ActiveCell.row - 2 Then 
      Range(ActiveCell, ActiveCell.Offset(0, 1)).Insert Shift:=xlShiftDown 
      ActiveCell.Value = ActiveCell.row - 2 
     ActiveCell.Offset(0, 1) = "100%" 
     End If 

    Next cCell 
End Sub 

番号5は、細胞が挿入された値5と100％

CellNum-2％ 1 93.55パーセント 2 93.38パーセント 3 93.52パーセントを与えられるべきであるので、欠落している

例データセット、 4 95.75パーセント 6 98.66パーセント 7 98.34パーセント 8 98.34パーセント 9 96.08パーセント

を与えることができる任意の助けを

おかげ

Answer 1

正しい次のコード

For Each cCell In Range("A3:A18")