VBA模拟调整参数

xxzljw123

我想做一个数据迭代的模拟模型：

• 初始数据在H4~H25列
• 使H4~H25分别与L列到EG列同行数字相加（此为调整后值），使H4~H25分别与L列到EG列同行数字相加并取绝对值（此为误差值）
• 把每列的误差值相加，取最小的误差值那列，并记录此次过程。
• 将上一次调整后值作为基础值，重复2~3过程，极限迭代6次。
• 将最终调整过程填入I4
  

以上举例：
初始值：
H4:-0.7       L4:0.34                                                  M4:-0.47                                                          N4:0.15
H5:0.97      L5:0.09                                                  M5:0.92                                                            N5:-0.9
----------------------------------------------------------------------------------------------------------------------------------------------------------------
数据计算第一次（但表格中L列到N列的数据不变，下次计算继续调用）：
                 L4（调整值）:-0.36                                 M4（调整值）:-1.17                                           N4（调整值）:-0.55
                 L4（调整值）:1.06                                  M5（调整值）:1.89                                            N5（调整值）:0.07
                 L列误差值=1.42（L列误差值相加）           M列误差值：3.06（L列误差值相加）                    N列误差值：0.62（N列误差值相加）
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
判断：
N列误差值是最小值，将H列数据与N列数据相加并成为下一次的基础值，并将此次调整记录在I4
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
基础值1：
H4:-0.55     L4:0.34                                                  M4:-0.47                                                          N4:0.15
H5:0.07      L5:0.09                                                  M5:0.92                                                            N5:-0.9
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
数据计算第二次（列表L列到N列继续不变）：
                 L4（调整值）:-0.21                                M4（调整值）:-1.02                                          N4（调整值）:-0.4
                 L4（调整值）:0.16                                 M5（调整值）:0.99                                           N5（调整值）:-0.83
                 L列误差值=0.37（L列误差值相加）           M列误差值：2.01（L列误差值相加）                    N列误差值：1.23（N列误差值相加）
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
判断：
L列误差值是最小值，将H列数据与L列数据相加并成为下一次的基础值，并将此次调整记录在I4
（以上是重复2次结果）目标是迭代6次
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
将最终结果输出在J列（调整值），补偿结果显示在I4
结果：
                初始数据                       建议补偿数据                          补偿后数据
                 -0.7                       N列调整1次；L列调整一次                    -0.21
                 0.97                                                                                 0.16

目的是希望将初始数据经过调整，将所有数据尽量趋近与0
希望大神能我按照这个写个代码，先跪谢各位大神！

拓展1：以上我还考虑到1种可能性，比如果基础值与调整区域值得到2个或以上相同的误差值，则将这两组分别作为基础值1和基础值2，再分别进行调整计算，得出所有误差值最接近0的结果，取此次值
拓展2：迭代不设上限，直到再迭代也无法比上一次的误差值和小，取此次值。
   
               

longwin

请测试。。。。