excel - vba删除做而

Question

我对一个代码有问题。请帮我解决这个问题。

有我的代码：

  Sub delete()
    
    Dim i As Long
    Dim art As Long
    art = 2
    x = "programing"
        Do While art < Application.WorksheetFunction.CountA(Workbooks("11.xlsm").Worksheets("sheet1").Range("f:f")) + 1
            If cell(art, 6).Value <> x Then
            cell.ClearContents
            End If
            art = art + 1
        Loop


End Sub

标签： excelvbaloopsexcel-formulado-while

Answer 1

在您的代码中，将单元格替换为单元格。

其次，您应该在单元格之前给出工作表名称。

像 worksheets(1).cells

如果您进行这些更正，您的代码将正常运行。