loops - 尝试了解如何使用某些参数编写 if then elseif 语句

Question

是的，我是一个不称职的VBA。只是在学习，我需要有人来看看这个并为我指明正确的方向。我想为一系列单元格编写一个 if 语句。我希望宏查看每个单元格，如果单元格 = 0，则清除单元格，如果单元格 <> 0，则不执行任何操作，查看下一个单元格。

这是我可怜的尝试。

Sub MACRO6()
    Dim VM As String
    VM = Range("D29:E43")
    Sheets("10").Select
    For Each VM In Range
        If cell = 0 Then ClearContents
        ElseIf cell <> 0 Then
        End If
    Next
End Sub

Answer 1

您的ElseIf是不必要的。默认情况下它不会执行任何操作。只需删除该行即可。由于您的 If ...Then 位于一行，因此您也不需要 End If 并且应将其删除。

您想要类似下面的内容(从 this example 调整):

Sub ClearZero()
    For Each c In Worksheets("10").Range("D29:E43").Cells
        If c.Value = 0 Then c.Value = ""
    Next
End Sub