vba - 我无法使此代码工作，它是 "type mismatch error"

Question

这段代码有什么问题吗。我需要查看一列，如果该值小于引用值(它是一个计时器)，则复制相邻的单元格并放入“A8”。

谢谢。

Sub GetData()

Dim i As Integer

For i = 4 To 31

If Cells(i, 38) < Cells(32, 5) Then
Cells(1, 8) = Cells(i, 39)
End If

Next i

End Sub

Answer 1

或者在所有提供的选项中添加这个额外的If statement在您现有的 if 之前:

 If IsError(Cells(i, 39)) = False And IsError(Cells(32, 5))= False Then