Question

高分求使用Excel计算多边形面积方法

已知多边形计算公式（如图），算法为坐标法，适用于不规则多边形的面积。
求使用Excel怎样解决？公式或VBA不限，加急，感谢诸位大神。

公式中S代表面积，XY为多边形每一点坐标，展开式为：S=1/2*（X1*Y2-X2*Y1+X2*Y3-X3*Y2+……+Xn*Y1-X1*Yn)
注意，循环到最后点n时要返回到点1闭合结果才正确。

要求在一个单元格内使用公式或VBA自定义函数解决，因为有大量的多边形要计算，分行计算再求和不现实。
公式估计过于复杂，VBA最好使用数组，应该很简单。

用于试验数据：
1487.7297,977.7625

1116.2797,280.5518

1874.2792,-214.4377

2508.4621,359.0257

1674.9646,467.6819
使用CAD绘制的闭合多边形的面积测量结果为642643.7552，使用EXCEL分行再求和计算也一样。

Answer 1

自定义函数

追问

首先表示感谢，几行代码就搞定问题，确实牛。不知大侠能否帮忙修改下，就是LDX（）我想要两个数组变量，即LDX(X,Y)，就是X数据一行或一列，Y数据一行或一列，谢谢啦

追答

注意维度一样就可以了

修改如下

追问

非常感谢，满足我的使用要求，辛苦啦！！！

Answer 2

详见附图附件

 

 

 

 

 

追问

首先表示感谢。这是分步运算，我也会，问题中说了，要在一个单元格内解决

Answer 3

用数组arr = Range("a2:b" & [a65536].End(3).Row)配合循环就可以了

追问

我想要一个自定义函数，麻烦下，谢谢。这种用处不大

追答

任何单元格输入=mj()就可以

追问

在此表示感谢，不过您编的函数没有变量，不实用，所以就没采纳你的。但还是要感谢！！

追答

一样的，李大侠也是Excel爱好者团队里的高手。