在 VBA 脚本中出现错误 438

Question

我有以下代码。我调试了一下，发现问题出在 for.

中的 IF

确切的错误是：运行时间错误 438 - 对象不支持此属性或方法

有什么线索吗？我感谢任何帮助。谢谢！

Sub dimensiones()
Dim Hoja1 As Object
Dim Hoja2 As Object

Set Hoja1 = Worksheets("INPUT")
Set Hoja2 = Worksheets("OUTPUT")

Dim inicio_filas As Integer
Dim col_s1 As Integer
Dim col_s2 As Integer
Dim limite_filas As Integer
Dim m As Integer

col_s1 = 38
col_s2 = col_s1 + 2
inicio_filas = 3
limite_filas = 1000

Dim k As Integer
k = inicio_filas


For i = inicio_filas To limite_filas
    For m = 1 To col_s2 - 1
        Hoja2.Cells(k, m) = Hoja1.Cells(i, m)
    Next m
    k = k + 1

    If Hoja1(i, col_s2) <> "" Then
        For m = 1 To col_s1 - 1
            Hoja2.Cells(k, m) = Hoja1.Cells(i, m)
        Next m

        Hoja2.Cells(k, col_s2) = Hoja1.Cells(i, col_s2)
        Hoja2.Cells(k, col_s2 + 1) = Hoja1.Cells(i, col_s2 + 1)
        Hoja2.Cells(k, col_s2 + 2) = Hoja1.Cells(i, col_s2 + 2)

        k = k + 1
    End If
Next i
End Sub

Answer 1

知道了，菜鸟错误但是忘记了在查找 Hoja1.Cells(i,col_s2)

时缺少 Cells 命令

谢谢！

在 VBA 脚本中出现错误 438

Getting error 438 in VBA Script

vba

excel

runtime