显示器坐标系

Question

单元格A1有左上角坐标箱，A2坐标箱右下角坐标，我如何获得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坐标是在递减的顺序。为了迎合所有情况，您必须在该功能中包含该检查。