Kód: Vybrat vše
Option Explicit
Sub DoplnitRadky()
Dim SBlk As Range, SClmn As Range, Cll As Range
Dim CllVal As Variant
On Error Resume Next
Set SBlk = Application.InputBox("Vyber oblast bunek pro doplneni tazenim mysi" & vbCr _
& "nebo vepsanim, napr.: A1:D3", Type:=8)
If Err.Number <> 0 Then MsgBox "Nutno zadat oblast bunek, beh procedury ukoncen.": Exit Sub
On Error GoTo 0
With SBlk
Set SClmn = .Resize(.Rows.Count, 1)
End With
For Each SClmn In SBlk.Columns
CllVal = vbNullString
For Each Cll In SClmn.Cells
With Cll
If .Value <> vbNullString Then CllVal = .Value Else .Value = CllVal
End With
Next Cll
Next SClmn
Set SBlk = Nothing
Set SClmn = Nothing
Set Cll = Nothing
End Sub