在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

知道了，noob错误，但是在寻找Hoja1.Cells（i，col_s2）时忘记了丢失的Cells命令

谢谢！