Excel一键得到选区单元格数值的绝对值

1、本教程以下列数据为例，求取它们的绝对值。

3、绘制之后会自动弹出一个窗口，选择 新建。

5、在模块两条代码之间输入以下代码：Sub 按钮1_Click()Dim rng As RangeSet rng = SelectionFor Each rng In Selection If rng >= 0 Then rng = rng Else rng = -rng End IfNextEnd Sub

7、选中区域，点击按钮即可。