如果單元格值與特定值不匹配，則插入兩個單元格

此宏應該首先檢查列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％

感謝您的可以給出

任何幫助

來源

2017-09-05 Randy Dev

You're不增加CCELL，所以it's不處理每一行。 – jsanchezs

正確下面的代碼

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

來源

2017-09-05 18:51:32

如果單元格值與特定值不匹配，則插入兩個單元格

回答

相關問題