excel中将选定区域内的值全都乘以-1如何用vba实现？

Question

如题所示

Answer 1

For Each r In Selection.Cells
    r = r * -1
Next r追问

不行，没有效果诶。

追答

程序增加r的Dim定义语句就可以了。

我的数据：

我的程序：

执行后的数据：





Answer 2

是一选中就所有选中的单元格都变为相反数？还是选中后，再点个按钮就实现转为相反数？