VBA For Next循环创建节点连线起点始终连接上一分区最后节点问题

你的推测完全正确，问题根源就是连线起点的对象引用固定，和循环本身的执行逻辑无关。
生成Sector1节点时，你在循环中每次新建节点都会把对象变量S01_Node指向当前最新创建的S1节点，S1节点全部生成完毕后，S01_Node的指向就停留在了S1的最后一个节点上，后续不会再变动。
而你在Sector2的生成循环中，创建连线时始终把起点绑定到这个固定不变的S01_Node对象，完全没有根据当前循环进度切换要连接的S1节点，最终所有连线的起点都会固定连接到S1的最后一个节点。

• 清理冗余代码：把Set SectorSheet = Worksheets(1)、Set SectorNodes = SectorSheet.Shapes这两行对象赋值挪到循环外，不需要每次循环都重复执行，不影响结果但能减少不必要的性能开销。
• 动态获取起点节点：在S2的循环中，每次创建连线前，根据当前循环索引i，按节点命名规则取出S1中对应序号的节点对象，替换原来固定的S01_Node引用。
• 命名规则优化：原来的节点名用硬编码拼接"0"&i的方式，当节点数超过9个时会出现Node010这类格式不统一的问题，改用Format(i, "00")自动补零，保证序号始终是两位。

Sub Node_Gen_S02()
    Call RESTART
    
    Dim i As Integer
    ' 工作表、形状集合定义挪到循环外，减少冗余赋值
    Set SectorSheet = Worksheets(1)
    Set SectorNodes = SectorSheet.Shapes
    
    For i = 1 To rndNodeAmount_S02
        
        NodePosVer_RND = WorksheetFunction.RandBetween(-15, 15)
        NodePosHor_RND = WorksheetFunction.RandBetween(-40, 40)
        
        Set S02_Node = SectorNodes.AddShape(msoShapeOval, 485 + NodePosHor_RND, ((Map_Median + NodePosVer_RND) - (S02_Range_Ver / 2) + ((S02_Range_Ver / (rndNodeAmount_S02 + 1)) * i) + NodePosVer_RND), 15, 15)
        ' 用Format自动补零，避免节点数超过9时命名错乱
        S02_Node.Name = "Sector02_Node" & Format(i, "00")
            With S02_Node.Fill
                .ForeColor.RGB = RGB(51, 204, 204)
                .Transparency = 1
                .TwoColorGradient msoGradientFromCenter, 1
                .GradientStops(2).Color = RGB(0, 0, 0)
                .GradientStops(2).Position = 0.5
            End With
            With S02_Node.Line
                .ForeColor.RGB = RGB(255, 80, 80)
            End With
        
        Debug.Print "Node Name:" & S02_Node.Name
        
        ' 动态获取当前序号对应的S1节点
        Dim targetS01Node As Shape
        Set targetS01Node = SectorNodes("Sector01_Node" & Format(i, "00"))
        
        ' 生成S1-S2节点连线
        Set Sector02_Node_Connect = SectorNodes.AddConnector(msoConnectorStraight, 0, 0, 100, 100)

        With Sector02_Node_Connect.ConnectorFormat
            ' 绑定到动态获取的S1节点，替换原来固定的最后一个S1节点引用
            .BeginConnect ConnectedShape:=targetS01Node, ConnectionSite:=1
            .EndConnect ConnectedShape:=S02_Node, ConnectionSite:=1
        End With
        
        With Sector02_Node_Connect.Line
            .ForeColor.RGB = RGB(51, 204, 204)
            .Weight = 1
            .BeginArrowheadStyle = msoArrowheadOval
            .EndArrowheadStyle = msoArrowheadOval
        End With
        
        Sector02_Node_Connect.Name = "C_S01_S02_" & i
                
        Sector02_Node_Connect.RerouteConnections
    Next i
End Sub

注意：若两个分区的节点总数不相等，需要补充边界判断：当循环索引i超过S1的节点总数rndNodeAmount_S01时，可以改为随机选取一个S1节点连接，避免调用不存在的节点触发运行时错误。

内容的提问来源于stack exchange，提问作者phoenix