作者：乔山办公网日期：
返回目录：excel表格制作
应该是这zhidao样：内
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
你测试容一下，我没测试过
For i = 1 To Range("Sheet1").Columns.Count
应该改为如度下语句知吗？道
For i = 1 To sheets("Sheet1").Columns.Count
如果是，同版样需要更改权如下语句
For j = 1 To Range("Sheet1").Rows.Count
将程序中的A,B,用引号括起来，即改为"A“，"B",还有，Cells(i, A).Value.Select改为：Cells(i, "A").Select
软件版本：百Office2007
方法如下：
在VBA中如果使用了系统不认可的对象度表示方法等，例如下面的Range表示方法，系知统就不认可：
这样，在运道行程序专时，就会提示错误：
将代码中的错误更正属，用正确的表示方法来使用对象或应用程序，就不会出错了：