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")

如果单元格值与特定值不匹配，则插入两个单元格

1 个答案: