如果VBA等于Cell D1值，VBA优于删除封面上A3：A999范围内的单元格内容

Question

如果VBA等于我从另一段代码中输入的Cell D1值，则VBA优于删除封面上A3：A999范围内的单元格内容。这可能很简单但是在某一刻我很困惑。

Answer 1

If myWorksheet.Range("D1") = myValue then myWorksheet.Range("A3:A999").ClearContents

解释：myWorksheet =工作表变量。表达您正在制作的工作表总是一个好主意。这是通过Set命令完成的，例如设置myWorksheet =表格（“表1”） .ClearContents清除父范围中的任何值，但保留任何格式。使用.Clear来清除单元格为空的defualt状态。

Answer 2

如果我理解正确，如果单元格内容等于单元格D1中的值，则要从A3：A999范围内的单元格中删除单元格内容。为此，您需要分别通过每个单元格的循环，比较单元格内容和必要时清除单元格内容。

For X = 3 To 999
    If Range("A" & X).Value = Range("D1").Value Then
        Range("A" & X).Clear
Next X

如果满足条件，这将清除单元格内容（即单元格AX和D1具有相同的内容，其中X是用于迭代的整数）。请注意，为了使其正常工作，您需要激活正确的工作表（否则在带有工作表名称和点的范围之前：worksheetName.）