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