Vba 删除Excel中具有零值的单元格

我一直在尝试删除/隐藏值等于零（0）的单元格

---

代码将删除整行。我想删除值和值的描述。

此代码将快速清除（擦除）列E中值为0的单元格中的值和注释

Sub Testme()
      Dim rng1 As Range
Set rng1 = Columns(5)
With rng1
    .AutoFilter 1, "0"
    With rng1.Offset
        .ClearContents
        .ClearComments
    End With
    With rng1.Offset(0, -1)
        .ClearContents
        .ClearComments
    End With
End With
End Sub

---

可以清除包含0的单元格的内容，但只能隐藏整行或整列，不能隐藏单个单元格。您的意思是要删除单元格内容和任何comments@brettdj我想删除有零值的单元格和它前面的单元格。+1自动筛选是一种方法！您可能需要稍微编辑它，因为用户希望清除此单元格及其前面的单元格

@brettdj我想删除一个零值的单元格和它前面的单元格

@Sean你所说的

它前面的单元格

水平还是垂直是什么意思？@brettdj还是什么都没有发生。当你说0时，你是指0还是空的？@Sean：两个问题。您的数据在第1行中有标题吗？你所说的删除是什么意思？清除单元格内容还是实际删除单元格？删除单元格实际上会移动单元格。

Sub Testme()
      Dim rng1 As Range
Set rng1 = Columns(5)
With rng1
    .AutoFilter 1, "0"
    With rng1.Offset
        .ClearContents
        .ClearComments
    End With
    With rng1.Offset(0, -1)
        .ClearContents
        .ClearComments
    End With
End With
End Sub