napadá mne malé makro, které bych si dal pod nějakou klávesu, označil buňku, kde je shluk čísel (hodnoty) a spustil >>
Sub secti()
Dim cisla$
Dim radek!
radek = ActiveCell.Row
cisla = ActiveCell.Value
Range("e" & radek).FormulaR1C1 = "=" & cisla
End Subcitovat
Sub secti()
Dim cisla$
Dim radek!
radek = ActiveCell.Row
cisla = ActiveCell.Value
Range("e" & radek).FormulaR1C1 = "=" & cisla
End Subcitovat