Excel VBA中添加新的行如果条件满足

Question

我试图写一些VBA，将完成

如果行O不再是当前行明确列空，则所有数据复制到新行，然后我，J，K，L，M，N
在新插入的行明确列O

的警告我不能肯定占为-抛出一个

类型不匹配错误

这里是我试图用

Sub BlueBell() 
Application.ScreenUpdating = False 
Dim i As Long, y 
ReDim y(2 To Range("A" & Rows.Count).End(3).Row) 
For i = UBound(y) To LBound(y) Step -1 
If Cells(i, "O") Then 
    If Cells(i, "I") = "" And Cells(i, "K") = "" And Cells(i, "M") = "" Then 
     GoTo DoNothing 
    Else 
     Rows(i).Copy 
     Cells(i, "A").Insert 
     Range("I" & i & ":J" & i & ":K" & i & ":L" & i & ":M" & i & ":N" & i & ":O" & i + 1).ClearContents 
     GoTo DoNothing 
    End If 
End If 
DoNothing: 
Next i 
End Sub 

Answer 1

从你的错误

除了工作用一个字符串作为布尔表达式的语法，有可以改变的几件事在您的代码中：

Sub BlueBell() 
    Application.ScreenUpdating = False 
    Dim i As Long ', y() As Variant 
    'ReDim y(2 To Range("A" & Rows.Count).End(3).Row) 'Why use an array? 
    For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1 
     If Not IsEmpty(Cells(i, "O").Value) Then 
      'Avoid the use of GoTo 
      If Cells(i, "I").Value <> "" Or _ 
       Cells(i, "K").Value <> "" Or _ 
       Cells(i, "M").Value <> "" Then 
       Rows(i).Copy 
       Cells(i, "A").Insert 
       'Don't use a "Ix:Jx:Kx:Lx:Mx:Nx:Ox+1" range - it will lead to problems 
       'because even really experienced users don't understand what it does 
       Range("I" & i & ":N" & i).ClearContents 
       Range("O" & i + 1).ClearContents 
      End If 
     End If 
    Next i 
    'It's a good habit to reset anything that you disabled at the start of your code 
    Application.ScreenUpdating = True 
End Sub