Код Vba: заполнение пустых ячеек динамически

Question

Мне нужно заполнить мои пустые ячейки на листе с нулем. В настоящее время я делаю это для C12: H35. Может кто-то, пожалуйста, сообщите, что не так в моем коде. Он даже не дает никакой ошибки. Также мне нужно сделать это динамически. Так что я пытался сделать, как

Dim sht as Worksheet Set sht = This Workbook.Sheets("MySheet") sht.Range(sht.cells(C12:3),sht.cells(12,Columns.count).End(xlToLeft)).Select

Никто не работает :(

Этот код предназначен не динамический диапазон, который снова не работает

Sub FillEmptyCell 
     Dim rng as Range 
     Dim i as Long 
     Dim cell as Range 
    Set rng= Sheets("Mysheet").Range("C12:H35") 

For each cell in rng 
    If cell.value = " " Then cell.value= "0" 
    End if 
Next 
End Sub 

Answer 1

Этот код работал хорошо для меня

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 
    'Range("C12:AL12").Select 
    'Range(Selection, Selection.End(xlDown)).Select 
    Set rng = Range(Range("C12"), Range("AD" & sht.UsedRange.Rows.Count)) 
    For Each cell In rng 
    If cell.Value = "" Then cell.Value = "0" 
    Next 
End Sub 

Answer 2

У меня также есть один больше предложений для вас.

Sub FillEmptyCell() 
    Dim rng as Range 
    Dim i as Long 
    Dim cell as Range 
    Set rng= Sheets("Mysheet").Range("C12:H35") 
    Sheets("Mysheet").Activate 
    rng.Select 
    Selection.Replace What:="", Replacement:="0", LookAt:=xlWhole, _ 
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

    End Sub 

Answer 3

Ваш код в порядке, но оператор if был выключен, я также изменил кавычки, чтобы в них не было места. Когда это так, VBA ищет пространство в ячейке, а не пустую ячейку.

Sub FillEmptyCell() 
Dim rng As Range 
Dim i As Long 
Dim cell As Range 

    Range("C1").Select 
    colRef = ActiveCell.Column 
    lastrow = Cells(Rows.Count & colRef).End(xlUp).Row 
    Do Until ActiveCell.Column = 31 
     colRef = ActiveCell.Column 
     lastrow = Cells(Rows.Count & colRef).End(xlUp).Row 
     For x = 1 To lastrow 
      If ActiveCell.Value = "" Then 
       ActiveCell.Value = "0" 
       ActiveCell.Offset(1).Select 
      Else 
       ActiveCell.Offset(1).Select 
      End If 
     Next 
     ActiveCell.Offset(-lastrow, 1).Select 
    Loop 
End Sub 

Answer 4

Я не знаю, если вы хотите, чтобы заполнить пустые ячейки нулями, или, если это ваше намерение научиться VBA, но вам не нужно VBA для того, чтобы сделать это:
Сначала выберите где вы хотите работать,
затем нажмите Ctrl + G (Go) и нажмите кнопку «Special».
На этом экране (экран «Перейти к специальному») установите флажок «Заготовки» и нажмите «Ввод».
Теперь нужно выбрать только пустые ячейки.
Введите «0» и нажмите «Ctrl + Enter».