Excel-sarakkeen täyttö

moduuliin...
oletuksena, etta taulukko alkaa A1 ja laittaa valilyonnin tyhjiin soluihin. Voit muuttaa merkin jos tarvetta Range(sarake.Address).Offset(vika, 0).Resize(rivit - vika, 1) = " " = merkin jalkeen lainausmerkkien sisaan

Sub Tayta()
Dim rivit As Integer
Dim vika As Integer
On Error Resume Next
rivit = Range("A1").CurrentRegion.Rows.Count
For Each sarake In Range("A1").CurrentRegion.Columns
vika = Range(sarake.Address).End(xlDown).Row
If vika rivit Then
Range(sarake.Address).Offset(vika, 0).Resize(rivit - vika, 1) = " "
End If
Next
End Sub