Заполнение пустых ячеек с нуля с использованием VBA код

Question

Sub FillEmptyCell() 
    Dim rng As Range 
    Dim i As Long 
    Dim cell As Range 
    Dim sht As Worksheet 
    Set sht = ActiveWorkbook.Sheets("Sheet1") 
    sht.Activate 

    Set rng = Range(Range("C12"), Range("AD" & sht.UsedRange.Rows.Count)) 

    For Each cell In rng 
     If cell.Value = "" Then 
      cell.Value = "0" 
     End If 

    Next 
End Sub 

Я пытаюсь заполнить свои пробелы в листе с нулевым dynamically.However, Я не хочу, чтобы это заполнить нулями в строке, которые не имеют никаких данных. может кто-нибудь помочь, пожалуйста?

Answer 1

Посмотрите, как это работает,

Sub ZeroStuff() 
    Dim LstRw As Long, rng As Range, sh As Worksheet, c As Range 

    Set sh = Sheets("Sheet1") 

    With sh 
     LstRw = .Cells(.Rows.Count, "C").End(xlUp).Row + 1 
     Set rng = .Range("C12:C" & LstRw).SpecialCells(xlCellTypeBlanks) 

     For Each c In rng.Cells 
      .Range(c.Offset(, 1), c.Offset(, 27)) = 0 
     Next c 

    End With 

End Sub