如果相邻单元格有值，则插入公式

Question

如果右边的单元格有值，我想在表格中插入一个公式。

我的代码：

include('Sessions.php');
Session::update();

我的问题：当我的公式具有Sub whbweh() For Each cel In ActiveSheet.ListObjects(1).ListColumns("x").DataBodyRange If cel.Value <> "" Then cel.Offset(0, -1).Formula = ("=2+5") Next End Sub 时，该公式将插入到所有相邻的单元格中，即使它们没有值。

为了说明我的问题：

https://youtu.be/2WFY9CdyD5w

https://drive.google.com/drive/folde...7h?usp=sharing