EXCEL算任意多边形面积

Question

已知多边形计算公式（如图），算法为坐标法，适用于不规则多边形的面积。
求使用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分行再求和计算也一样。

另外求大侠QQ，微信联系方式呀

Answer 1

Public Function CalArea(Rng As Range) As Double
Dim x0 As Double, y0 As Double, x1 As Double, y1 As Double, x2 As Double, y2 As Double, TC As Long, TempArea As Double
TC = Rng.Rows.Count
If TC < 3 Then
    MsgBox "坐标数少于3，无法计算面积！"
    CalArea = 0
    Exit Function
End If
x0 = Rng.Cells(1, 1)
y0 = Rng.Cells(1, 2)
For i = 2 To TC
    x1 = Rng.Cells(i - 1, 1)
    y1 = Rng.Cells(i - 1, 2)
    x2 = Rng.Cells(i, 1)
    y2 = Rng.Cells(i, 2)
    TempArea = TempArea + x1 * y2 - x2 * y1
Next
TempArea = 0.5 * (TempArea + x2 * y0 - x0 * y2)
CalArea = TempArea
End Function

我这函数是适用于把X坐标与Y坐标分成两列写了，以下截图是使用方法

如果你的坐标是XY坐标写在同一个单元格，那么函数需要改动一下

Answer 2

Answer 3

===57132899====
是你吗？
又问？？来自：求助得到的回答

Answer 4

公式是：

=(A1*B2-A2*B1+A2*B3-A3*B2+A3*B4-A4*B3+A4*B5-A5*B4+A5*B1-A1*B5)/2

你想要一个VBA程序，计算n个点的面积吗？

Sub 按钮1_Click()
    n = Cells(Rows.Count, 1).End(3).Row
    s = 0
    For i = 1 To n - 1
        s = s + Cells(i, 1) * Cells(i + 1, 2) - Cells(i + 1, 1) * Cells(i, 2)
    Next
    s = s + Cells(n, 1) * Cells(1, 2) - Cells(n, 2) * Cells(1, 1)
    s = s / 2
    [C1] = "面积："
    [D1] = s
End Sub