Befüllung von leeren Zellen mit null mithilfe von VBA-code

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

Ich versuche, mich zu füllen meine leere Räume, in Blatt mit null dynamisch.Allerdings
Ich möchte nicht, diese zu füllen Nullen in der Zeile, die keine Daten haben. kann mir jemand bitte helfen?

Dieser macht das gleiche wie das, was Ihr code tut Sheets("Sheet1").Range(Range("C12"), Sheets("Sheet1").Range("AD" & Sheets("Sheet1").UsedRange.Rows.Count)).SpecialCells(xlCellTypeBlanks) = 0
Haben Sie wollen, um eine Schleife durch Spalte C und sehen Sie, ob jede Zeile, die Daten enthält?
Ja b-Säule hat ein Datum, die gedumpt ist aus einem anderen Arbeitsblatt dynamisch,so dass, wenn Spalte B hat kein Datum,Die Daten für den jeweiligen Datum gefüllt, von C auf AD sollte auch nichts haben, Nur, wenn es Datum und keinen Wert gibt es für jeden entsprechenden Spalten dann möchte ich diese leeren Zellen null

InformationsquelleAutor Sunaina | 2016-02-03

  1. 1

    Sehen, wie das funktioniert,

    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
    Dies ist die Auswahl sogar die Zeilen, die keine Daten in jeder Zelle.Mein code macht das gleiche. Die Spalten sind fest von C12:AD12, aber die Zeilen sind dynamisch.Ich will keine Nullen für die Zeilen ohne Daten.
    Wenn {sht.Aktivieren} ich dies anstelle Range("c12:ad12"). Wählen Sie " Set rng= Range(Selection,Selection.End(xlDown)), dann wird die for-Schleife,,,, es füllt nur das C12:AD12 und eine Zeile darunter mit blankspaces mit null.Warum es nicht geht, gehen Kassen die Zeilen mit Mindestens einer Daten in eine Zelle?
    Wie kann ich eine while-Schleife, wo, wenn die Zeile hat aktuelle Informationen in Spalte b dann werden alle leeren Zellen der entsprechenden Zeile gefüllt sind mit null
    Vielleicht zeigen Sie ein Bild von dem, was Sie suchen.
    Ich möchte es gerne Aus: 03/03/2016: 30/03/2016 aber das Datum-format nicht arbeiten,seine Abgabe zahlen so Aus: 42256: 42272,so etwas wie dieses.

    InformationsquelleAutor Davesexcel

Schreibe einen Kommentar