運行時錯誤13類型不匹配

Question

我試圖運行一個腳本，根據特定列的單元格值在現有行之間插入空行。

到目前爲止，我有這樣的：

Set currentcell = Sheets("L1f").Range("I2:I131") 

Do While Not IsEmpty(currentcell) 

    Set nextcell = ActiveCell.Offset(1, 0) 

    ** If currentcell.Value = 1 Then 
     nextcell.EntireRow.Insert 

    ElseIf currentcell.Value = 2 Then 
     nextcell.EntireRow.Insert 
     nextcell.EntireRow.Insert 

    ElseIf currentcell.Value = 3 Then 
     nextcell.EntireRow.Insert 
     nextcell.EntireRow.Insert 
     nextcell.EntireRow.Insert 

    End If 
    Set currentcell = nextcell 
Loop 

而且我越來越突出顯示的線路運行時錯誤13類型不匹配。我已經通過這個網站搜索，並沒有找到一個修復，但我是新的，所以任何幫助/方向將是非常感謝！

Answer 1

我猜這個代碼來自其他地方，你試圖編輯Set currentcell行，所以它將被限制在L1f!I2:I131，而不是隻是選擇的地方？

問題是，當您將currentcell設置爲多個單元格時，它的.Value將成爲一個數組而不是單個值。所以，你需要設置currentcell只是在在L1f!I2:I131開始細胞，並引入另一個測試，看看當它落在該範圍之外：

Dim currentcell as Range 
Dim endcell as Range 
Set currentcell = [L1f!I2] 
Set endcell = [L1f!I131] 

Do While currentcell.Row <= endcell.Row 

    Set nextcell = currentcell.Offset(1, 0) 

    If IsNumeric(currentcell) Then 

     If currentcell.Value = 1 Then 
      nextcell.EntireRow.Insert 

     ElseIf currentcell.Value = 2 Then 
      nextcell.EntireRow.Insert 
      nextcell.EntireRow.Insert 

     ElseIf currentcell.Value = 3 Then 
      nextcell.EntireRow.Insert 
      nextcell.EntireRow.Insert 
      nextcell.EntireRow.Insert 

     End If 

    End If 

    Set currentcell = nextcell 
Loop