excel - VBA 多个 if 语句

Question

我有以下代码可以正常工作。使用多个 if 语句时有没有办法减少行数。没有一个依赖于任何其他，它们都引用相同的工作表和范围。滚动代码时它看起来不正确。认为可能有更简洁的方法？我没有使用这些实际的变量名。

    If Not c.Offset(0, 3).Value = "" Then
        var1 = True
        var2 = c.Offset(0, 3).Value
    End If
    
    If Not c.Offset(0, 4).Value = "" Then
        var3 = True
        var4 = c.Offset(0, 4).Value
    End If
    
    If Not c.Offset(0, 5).Value = "" Then
        var5 = True
        var6 = c.Offset(0, 5).Value
    End If
    
    If Not c.Offset(0, 6).Value = "" Then
        var7 = True
        var8 = c.Offset(0, 6).Value
    End If
    
    If Not c.Offset(0, 7).Value = "" Then
        var9 = True
        var10 = c.Offset(0, 7).Value
    End If

Answer 1

您可以使用 switch 语句，或者不是为每个条件使用新的 if 语句，而是创建一个 else if，这使得代码更短且更具可读性。