Önceki 4 boş VBA

Question

kullanarak boş bir sonraki excel sütununun içine koydu Merhaba hepsi bir satırda 4 boş hücre varsa, böylece bir sonraki satır otherwais 1 burada koymak gerekir eğer bir satır makro yapmaya çalışıyorum Şimdiye kadar

Sub QuickCull() 
    On Error Resume Next 
    Columns("a").SpecialCells(xlBlanks).EntireRow.Delete 
    Columns("b").SpecialCells(xlBlanks).EntireRow.Delete 
    Columns("d").SpecialCells(xlBlanks).EntireRow.Delete 
Dim col As Range 
Set col = Cells(Rows.Count, "E").End(xlUp) 
Dim r As Range 
Set r = Range("E2", col).Resize(, 4) 
    r.Select 
    Dim cell As Range 
    For Each cell In r 
If cell.Value = "" Then 
cell.Value = 0 
Else 
cell.Value = 1 
End If 

    Next cell 

End Sub 

Ben bu satırların toplamı ile başka bir hücreyi yapma konusunda düşünce boş bir sıranın 0 instad koymak Bu şekilde ne yaptığıma, ama yol daha queckly ve productivly bunu yapmak için nerede ?

Answer 1

Açıkçası çalışma sayfasının adıyla "WORKSHEETNAME" yerine, aşağıdakilerden gibi bir şey gerek:

Dim r as Range, cell as Range, eRow as Long 

eRow = Sheets("WORKSHEETNAME").Cells(Rows.Count, 5).End(xlUp).Row 
Set r = Sheets("WORKSHEETNAME").Range("E2:E" & eRow) 

For each cell in r.cells 
    If cell.Offset(0,-4).Value = "" _ 
    And cell.Offset(0,-3).Value = "" _ 
    And cell.Offset(0,-2).Value = "" _ 
    And cell.Offset(0,-1).Value = "" Then 
     cell.Value = 0 
    Else 
     cell.Value = 1 
    End if 
Next cell