Visual Basic 应用程序：奇数错误 '-2147417848 (80010108)' en tiempo de ejecución: Error en el método 'Range' de objeto '_Worksheet'

问题描述

嗨，我试图找到解决此错误的方法，但我没有成功，在代码插入行后，我正在使用名为“Inventario”的工作表中的 Excel 表，然后它开始填充该行行此错误发生，希望有人已经通过并知道如何解决它。

Private Sub BU1_Click()
    Dim x As Integer,Ultima_Fila As Integer
    Ultima_Fila = Sheets("Inventario").Range("M3") + 2
    i = 1
    Sheets("Inventario").Range("A" & Ultima_Fila).EntireRow.Insert
    Sheets("Inventario").Range("A" & Ultima_Fila) = Sheets("Inventario").Range("M3")
    Sheets("Inventario").Range("C" & Ultima_Fila) = TB2.Value
    Sheets("Inventario").Range("D" & Ultima_Fila) = TB3.Value
    Sheets("Inventario").Range("E" & Ultima_Fila) = TB1.Value
    Sheets("Inventario").Range("I" & Ultima_Fila) = Mid(TB3.Value,5,1)
    Sheets("Inventario").Range("J" & Ultima_Fila) = Mid(TB3.Value,3,2)
    i = 0
End Sub

Ultima_Fila 是一个计算 =MAX(ALL THE IDENTIFIED ROWS)+2 的单元格，预测添加到表中的元素的数量或 IDENTIFIER，以及应该插入的行，只需添加 2，即由于标题，整个表格上方的单元格数量。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）