应该是这样：
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
你测试一下，我没测试过
dim rng as range 有无此定义
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024