求助，已知坐标如何用函数或vba自动求方块编号？

19坐标是做少

根据原点坐标及已知坐标 计算 返回的单元格位置 。选中该单元格，ActiveCell.Value 显示该位置的值

把最终的问题打包放到百度网盘再贴上链接地址，用个镜像数组转换一下再由X、Y定位坐标获取数据就可以了。如果是多边形的第一列和第一行不要有数据，这样处理起来就可以不用做边界判断。

'合并单元格只能是4边形，按这图形来处理的
Option Explicit
Sub abc()
　Dim a, i, j, k, m, r, c, d, s
　a = [a1].Resize(10, 6)
　Set d = CreateObject("scripting.dictionary")
　ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 2)
　For i = 2 To UBound(a)
　　For j = 2 To UBound(a, 2)
　　　If Len(a(i, j)) Then m = m + 1: b(m, 1) = i: b(m, 2) = j
　　Next
　Next
　For i = 1 To m
　　r = Cells(b(i, 1), b(i, 2)).MergeArea.Rows.Count
　　For j = b(i, 1) To b(i, 1) + r - 1
　　　c = Cells(b(i, 1), b(i, 2)).MergeArea.Columns.Count
　　　For k = b(i, 2) To b(i, 2) + c - 1
　　　　a(j, k) = a(b(i, 1), b(i, 2))
　　　　d((j - 1) & "-" & (k - 1)) = a(b(i, 1), b(i, 2))
　　　Next
　　Next
　Next
　s = [h2].Value & "-" & [i2].Value
　[j2] = IIf(d.exists(s), d(s), vbNullString)
End Sub

可以上个多边形坐标文件到百度网盘，可能会有浮点计算误差的，估计要限定一个精度。
因为假设是7边形就算7个坐标点都为整型但线的边界点不可能全部做到整型的。极端情况下给定的这个点的坐标点正好位于线上，这怎么处理，估计条件还是不够。
是不是类似于地图上给定一个gps点的坐标然后获取地名什么的。