【探索】画字符间连线问题 使用excel VBA

参考：https://zhidao.baidu.com/question/495766793367435324.html

        https://baijiahao.baidu.com/s?id=1594169152027474864&wfr=spider&for=pc

代码

Sub a()
Dim i%, rng1 As Range, rng2 As Range, tmp As Range
Dim l, t, w, h
For i = 2 To UsedRange.Rows.Count - 1
    Set rng1 = Rows(i).Find(WorksheetFunction.Max(Rows(i)), lookat:=xlWhole)
    Set rng2 = Rows(i + 1).Find(WorksheetFunction.Max(Rows(i + 1)), lookat:=xlWhole)
    If rng1 Is Nothing Or rng2 Is Nothing Then Exit Sub
    If rng1.Column < rng2.Column Then
             l = rng1.Left + (rng1.Offset(, 1).Left - rng1.Left) / 2 + 4
             t = rng1.Top + (rng2.Top - rng1.Top) / 2
             w = rng2.Left - rng1