1、 增加輔助列篩選或排序

增加輔助列；

輔助列使用公式ABS(A1)；

向下拖動；

篩選最大值或者按序排列找到目標值。

2、 公式法

輸入如下公式；

=INDEX(A1:A10,MATCH(MAX(ABS(A1:A10)),ABS(A1:A10),0),1)

Ctrl+shift+enter，得到目標值。

3、 VBA自定義公式

輸入如下程式碼到模組中；

使用MaxAbs(單元格區域），得到目標值。

1

2

3

4

5

6

7

Function MaxAbs(my_Range As Range)

Dim my_Range1 As Range

MaxAbs = 0

For Each my_Range1 In my_Range

If Abs(my_Range1) > Abs(MaxAbs)And IsNumeric(my_Range1) Then MaxAbs = my_Range1

Next

End Function