No to spróbuj takiego makra: Sub Mnożenie() Dim cel As Range For Each cel In Selection If Application.IsNumber(cel) Then cel = Round(cel * , 2) Next cel End SubZałożenie: kurs (mnożnik) jest w komórce A1. Liczby do pomnożenia zaznaczasz przez selekcję. Jeśli w obszarze będą teksty, to nic się nie stanie. Wynik mnożenia jest zaokrąglany do 2 miejsc po przecinku. Oryginalne dane są nadpisywane, więc nie można do nich wrócić. Nie ma żadnego śladu, że liczby zostały pomnożone, więc trzeba uważać, żeby nie pomnożyć dwa razy.
" 4.25 " , " kurs "
" 19.380009765625 " , " 32.94001953125 " , " 10.2 "
, " a "