Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Oi!
Pode ser uma macro?
Sub Multiplicar()
'Substitui o valor de cada célula de um intervalo
'pelo valor da mesma multiplicado por um multiplicador informado.
'O intervalo inicia na célula ativa e termina antes da primeira célula vazia
On Error Resume Next
vLinhaInicial = ActiveCell.Row
vLinhaFinal = ActiveCell.End(xlDown).Row
vColuna = ActiveCell.Column
Multiplicador = InputBox("Multiplicar por:")
vErros = 0
For vLinha = vLinhaInicial To vLinhaFinal
Cells(vLinha, vColuna).Value = Cells(vLinha, vColuna).Value * Multiplicador
If Err.Number Then
vErro = vErro + 1
Err.Clear
End If
Next vLinha
If vErro = 0 Then
msg = MsgBox("Nenhum erro encontrado")
Else
msg = MsgBox(vErro & " Erros encontrados")
End If
End Sub
OBS.: Neste exemplo é necessário que o intervalo tenha mais de um valor na lista a ser multiplicada. Se tiver apenas uma célula, o procedimento será realizado até a última célula da coluna e o cálculo poderá ficar demorado.