VBA宏可检查多个单元格（同一行）并将公式写入空白单元格之一

Question

我正式将我的骄傲放在一边，并寻求帮助。 我花了很多时间试图提出一个VBA宏，但收效甚微。

快速概述：我使用的程序将2D打印尺寸导出到我构建的模板中。 不幸的是，它导出了（3）个不同的尺寸选项。 为了达到最终目的，在“打印尺寸”列（H列）中需要有一个值，在+ Tol和-Tol列（I和J列）中都需要有一个值。 因此，如果给定行中的所有（3）单元格中都有一个值（ 请参见第19行-下面的屏幕截图 ），则无需执行任何操作。

在（3）种情况下不会发生上述情况：

• 第一个是导出尺寸范围时（I和J列中的值，H列中的值都是空白）。 （ 请参见下面的第20行-屏幕截图 ）因此，公式将必须为-H20 =（（I20 + J20）/ 2）。

• 第二种情况是当给出H / J列为空白的MAX TOL（I列）时。 （ 请参见下面的第32行-屏幕截图 ）因此公式将需要为H32 =（I32 / 2）。 J32还需要输入一个值“ 0”。

• 第三种情况是当给出H / I列为空白的MIN TOL（J列）时。 （ 请参见下面的第27行-屏幕截图 ）因此，公式将必须为-H27 =（J27 / 2）。 I27还需要输入一个值“ 0”。

模板屏幕截图

抱歉，我尚未允许将图像上传到帖子，因此屏幕截图模板已链接到上方。

在此先感谢您的帮助！