Question

如图，在EXCEL中，让单元格元中的数字自动连线，这种VBA怎么写啊

Answer 1

Sub test()
    Dim rng As Range
    Dim r, col, n
    Dim brr()
    With ActiveSheet
        Set rng = .Range("B2：L100") '把这里改成你实际对应的区域
        r = rng.Cells(1, 1).Row: col = rng.Cells(1, 1).Column
        arr = .[b2].CurrentRegion
        ReDim brr(1 To UBound(arr, 1) * UBound(arr, 2), 1 To 2)
        n = 1
        For i = LBound(arr, 1) To UBound(arr, 1)
            For j = LBound(arr, 2) To UBound(arr, 2)
                With .Cells(i + r - 1, j + col - 1)
                    If .Value <> "" Then
                        brr(n, 1) = .Left + .Width * 0.5
                        brr(n, 2) = .Top + .Height * 0.5
                        n = n + 1
                    End If
                End With
            Next
        Next
        If n > 2 Then
            With .Shapes.BuildFreeform(msoEditingAuto, brr(1, 1), brr(1, 2))
                For i = 2 To n - 1
                    .AddNodes msoSegmentLine, msoSegmentLine, brr(i, 1), brr(i, 2)
                    m = m + 1
                Next
            .ConvertToShape
            End With
        End If
    End With
End Sub

 百度排版真烂。。

追问

如果表中的数字是用公式得来的，这代码还能让这些数字自动连线吗

追答

郁闷，就改了几个字母字数就超限了?

用附件的代码吧，对于大量数据速度要快，之前那个效果能达到，不过写得不好。

然后，对于题主的追问，强烈BS，这种问题，自己试试就知道了，写了代码，你连试一下都不愿意。。

Answer 2

可以写，需要的话请私信联系，需要你的附件。

Answer 3

这得多少代码

Answer 4

我也想知道。。