Excel VBA应用程序定义或对象定义错误

Question

初学VBA，自己写了一串代码，但运行的时候，总是提示应用程序定义或对象定义错误，请帮忙指点一下，VBA如下：

Sub AutoClone()

Dim GetDay As Long, Days
Dim i
GetDay = Sheets("report").[T4]
Days = Application.Transpose(Application.Transpose(Sheets("Daily Metrics").Range("c3:C367")))
i = Application.Match(GetDay, Days, 0)
Range(Sheets("Daily Metrics").Cells(d, i + 2), Sheets("Daily Metrics").Cells(ao, i + 2)) = Range(Sheets("Daily Metrics").Cells(d, i + 2), Sheets("Daily Metrics").Cells(ao, i + 2)).Value
End Sub
还请帮忙修正，谢谢！

Answer 1

应该是这样：

Sub AutoClone()

Dim GetDay As Long
Dim i
GetDay = Sheets("report").[T4]
For i = 3 to 367
    if range("C" & i).Value = GetDay Then 
        Range("D" & i & "AO" & i) = Range("D" & i & "AO" & i).Value
    End If
Next        
End Sub

你测试一下，我没测试过

追问

运行失败，我希望在Daily Metrics表格运行

追答

Sub AutoClone() 
Dim GetDay As Long
Dim i
GetDay = Sheets("report").[T4]
  For i = 3 to 367    
   if Sheets("Daily Metrics").range("C" & i).Value = GetDay Then         
       Sheets("Daily Metrics").Range("D" & i & "AO" & i) = Sheets("Daily Metrics").Range("D" & i & "AO" & i).Value
    End If
  Next
End Sub

追问

还是不行，仍然提示“应用程序定义或对象定义错误”。

追答

现在好了：

Sub AutoClone() 
Dim GetDay As Long
Dim i
GetDay = Sheets("report").[T4]  
For i = 3 to 367       
  if Sheets("Daily Metrics").range("C" & i).Value = GetDay Then
     Sheets("Daily Metrics").Range("D" & i & ":AO" & i) = Sheets("Daily Metrics").Range("D" & i & ":AO" & i).Value    
  End If  
Next
End Sub

Answer 2

dim rng as range 有无此定义