用单纯的Word也是可以实现的，步骤如下：
（1）以上面的表格为例，在第二行的利润那一列里面输入如下域代码：
{ Quote { Set CellNr1 "b{ =int({ SEQ CellNr }/2+0.5)+1 }" }{ Set CellNr2 "c{ =int({ SEQ CellNr \c }/2+0.5)+1 }" } { Set CellNr3 "d{ =int({ SEQ CellNr \c }/2 +0.5)+1}" } { ={ Ref CellNr1 } * { Ref CellNr2 } - { Ref CellNr3 } } }
注意：这里的花括号“{”和“}”都不是普通的花括号，而是通过键入Ctrl+F9键入的域代码括号。所有代码注意不要输入错误。
（2）复制这段域代码，粘贴到下面各行的利润列中。
（3）键入Ctrl+A选中所有文字，然后键入F9刷新所有的利润数据。如果Word显示的还是原始域代码而不是计算结果的话，可以再键入Alt+F9切换域代码显示为计算结果。
我在Word 2013上实验是成功的，可以自动计算每一行的利润数据。
（注：域代码原始公式来自互联网，我做了一些调整）
（1）以上面的表格为例，在第二行的利润那一列里面输入如下域代码：
{ Quote { Set CellNr1 "b{ =int({ SEQ CellNr }/2+0.5)+1 }" }{ Set CellNr2 "c{ =int({ SEQ CellNr \c }/2+0.5)+1 }" } { Set CellNr3 "d{ =int({ SEQ CellNr \c }/2 +0.5)+1}" } { ={ Ref CellNr1 } * { Ref CellNr2 } - { Ref CellNr3 } } }
注意：这里的花括号“{”和“}”都不是普通的花括号，而是通过键入Ctrl+F9键入的域代码括号。所有代码注意不要输入错误。
（2）复制这段域代码，粘贴到下面各行的利润列中。
（3）键入Ctrl+A选中所有文字，然后键入F9刷新所有的利润数据。如果Word显示的还是原始域代码而不是计算结果的话，可以再键入Alt+F9切换域代码显示为计算结果。
我在Word 2013上实验是成功的，可以自动计算每一行的利润数据。
（注：域代码原始公式来自互联网，我做了一些调整）