Sub 泓()
Application.ScreenUpdating = False
Dim C_str$, Cell0 As Range
Dim p As Shape
Set My = Worksheets("sheet1")
For Each p In My.Shapes
If Not Application.Intersect(p.TopLeftCell, Range("A:C")) Is Nothing Then p.Delete
Next
C_str = "A2:C" & Cells.Find("*", , , , 1, 2).Row
With Range(C_str)
Set c = .Find("●", , xlValues, xlWhole)
If Not c Is Nothing Then
Set Cell0 = c
fAdd = c.Address
Set c = .FindNext(c)
Do
myLine Cell0, c
Set Cell0 = c
Set c = .FindNext(c)
Loop While c.Address <> fAdd And Not c Is Nothing
End If
End With
Application.ScreenUpdating = True
End Sub
Sub myLine(Cel0 As Range, Cel1)
x0 = Cel0.Left + Cel0.Width / 2
y0 = Cel0.Top + Cel0.Height / 2
x1 = Cel1.Left + Cel1.Width / 2
y1 = Cel1.Top + Cel1.Height / 2
ActiveSheet.Shapes.AddLine(x0, y0, x1, y1).Line.ForeColor.SchemeColor = 64
End Sub
亲，如下图，非要一句话说明：
从A2到带星号单元格构成的矩形区域中，用短线连接有黑色圆点的单元格。
这段代码的作用我知道，我是想知道代码每一句的意思哦，呵呵。
追答字数太多，写不下，请下载附件。
