如果单元格值不匹配某个值，则插入两个单元格

这个macros应该首先检查列A中的单元格值。 然后，如果单元格值不等于行号 – 2，则应input一组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")