Question

VBA一段不到10行的小程序报错,运行到DO WHILE循环的第一个语句时报"应用程序定义或对象定义错误" 在线等!

运行到DO WHILE循环的第一个语句Worksheets(i).Range(Cells(2, j), Cells(100, j)).ClearContents时报"应用程序定义或对象定义错误"
Sub pC()
Dim i, j As Byte
For i = 3 To 11 '遍历第3到第11个工作表
j = 1
Do Until Worksheets(i).Cells(2, j + 1) = "" '变更j最大可能值为24
Worksheets(i).Range(Cells(2, j), Cells(100, j)).ClearContents '本句报错,清除J列第2行到100行内容
j = j + 3
Loop
Next
End Sub

Answer 1

亲，这一句要改一下：
Worksheets(i).Range( Worksheets(i).Cells(2, j), Worksheets(i).Cells(100, j)).ClearContents