Utilizzo di VBA per verificare se la cella sottostante è vuota

Question

Come utilizzare VBA in Excel per verificare se una cella sottostante è vuota o no? Voglio sommare tutti i valori in un intervallo specifico, ma solo, se la cella sottostante non è vuota.

È in qualche modo possibile con VBA o in qualsiasi altro modo?

Esempio:

4 2 3 2 1 
2 3 1 

Sum sarebbe: 4 + 3 + 2 = 9.

Answer 1

consiglierei una formula per questo

FORMULA

=SUMPRODUCT((A1:E1)*(A2:E2<>"")) 

SNAPSHOT

Se si vuole ancora VBA poi

VBA

Option Explicit 

Sub Sample() 
    Dim rng As Range 
    Dim Cl As Range 
    Dim tot As Long 

    Set rng = Range("A1:F1") 

    For Each Cl In rng 
     If Len(Trim(Cl.Offset(1))) <> 0 Then tot = tot + Cl.Value 
    Next 

    Debug.Print tot 
End Sub 

In realtà si può avere molte versioni in VBA. Puoi valutare anche la formula sopra. Per esempio

Option Explicit 

Sub Sample() 
    Debug.Print Evaluate("=SUMPRODUCT((A1:E1)*(A2:E2<>""""))") 
End Sub 

Answer 2

Prova questo semplice codice

If IsEmpty(ActiveCell.Offset(1, 0)) Then 
'your code here 
End If 

Answer 3

Ho avuto alcuni problemi utilizzando solo 'IsEmpty' quando i dati vengono esportati da altri database. Questa è la funzione che ho sviluppato:

Function IsVacant(TheVar As Variant) As Boolean 
    'LeandraG 2010 

    IsVacant = False 

    If IsEmpty(TheVar) Then IsVacant = True 
    If Trim(TheVar) = "" Then IsVacant = True 
    If Trim(TheVar) = "'" Then IsVacant = True 


End Function