Sub filldata ()
Schemerige lrow zoals lang
lrow = Cellen (Cells.Rows.Count, „I“). Eind (xlUp). Rij
Schemerige rng als Waaier, cel als Waaier
Reeks rng = Waaier („I1: I“ & lrow)
Voor Elke cel in rng
cell.NumberFormat = „@“
Als cel. Waarde <> "" en Len (cel. Waarde) < 12="" Then="" cell="">
|