我昨天运行这个还没有问题,今天就不行了,总出报警“Run-time error '1004'. Application-defined or operation-defined error”求高手指点。
Sub COW()
Dim Xx As Integer
Xx = Sheets("Data").Cells(1, 1)
Sheets("Original Data").Select
Do While Cells(Xx, 60) <> "*"
Cells(Xx + 3, 60) = "*"
Xx = Xx + 1
Loop
End Sub
------解决方案--------------------------------------------------------
Data表和Original Data表有没有删除?