显示协调员

单元格A1有框左上angular的坐标， A2有框右下angular坐标，我如何得到A3以csv格式显示框的所有坐标？

例如：

 Cell A1 = (24,20) Cell A2 = (26,19) 

如何得到这个？

 Cell A3 = (24,20),(25,20),(26,20),(24,19),(25,19),(26,19) 

我正在使用Excel 2011

Answer 1

这是你正在尝试？ （ 我希望我已经正确地理解了你的查询，如果没有，请随时纠正我 ）

将此代码粘贴到模块中，然后调用单元格A3的=GetCord(A1,A2) ，如下面的屏幕截图所示。

 Public Function GetCord(rng1 As Range, rng2 As Range) As String Dim strTmp As String, strTmp1 As String, strTmp2 As String Dim a As Long, b As Long, i As Long, j As Long, k As Long strTmp1 = rng1.Value: strTmp2 = rng2.Value strTmp1 = Trim(Replace(strTmp1, "(", "")) strTmp1 = Trim(Replace(strTmp1, ")", "")) strTmp2 = Trim(Replace(strTmp2, "(", "")) strTmp2 = Trim(Replace(strTmp2, ")", "")) i = Val(Split(strTmp1, ",")(0)) j = Val(Split(strTmp1, ",")(1)) k = Val(Split(strTmp2, ",")(0)) l = Val(Split(strTmp2, ",")(1)) For b = j To l Step -1 For a = i To k strTmp = strTmp & "(" & a & "," & b & ")," Next a Next b GetCord = Left(strTmp, Len(strTmp) - 1) End Function 

截图

注意 ：上面的函数假设y坐标是递减的。 为了迎合所有情况，您必须在function中包含该检查。