Excel里面，我想编一个宏，使选中的若干个单元格里面的最大值减去0.05，最小值加上0.05，求

Excel里面，我想编一个宏，使选中的若干个单元格里面的最大值减去0.05，最小值加上0.05，求

Dim Adr_Max, Adr_Min As String

Adr_Max = Selection.Find(WorksheetFunction.Max(Selection)).Address

Adr_Min = Selection.Find(WorksheetFunction.Min(Selection)).Address

Range(Adr_Max) = Range(Adr_Max) - 0.05
Range(Adr_Min) = Range(Adr_Min) + 0.05

最大=Selection.Find(WorksheetFunction.Max(Selection)).value-0.05
最小=Selection.Find(WorksheetFunction.Min(Selection)).value+0.05

第一步：将选择的单元格数值存入数组；
第二步：对数组求最大值及最小值；
第三步：变量a=最大值-0.05；变量b=最小值+0.05
这个a和b就是要的结果
注：真想学编程要脚踏实地学