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

Answer 1

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

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

喜欢工作表(1).cells

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

Answer 2

你可能弄错了，“cell”必须是“Cells”。