VBA程序执行结果有时候不对,美女帅哥帮小弟我分析下

VBA程序执行结果有时候不对,美女帅哥帮我分析下
Sub test()
  Dim r1 As Range, r2 As Range
  Dim p, q
  'ActiveSheet.DrawingObjects.Select
  'MsgBox Sheet9.Cells(1, 4).Value
  For i = 1 To 15
  [a:i].HorizontalAlignment = xlCenter
  For j = 5 To 13
  If Trim(Sheet9.Cells(i, j)) <> "" Then
  p = Sheet9.Cells(i, j).Value
  ' MsgBox (p)
  Set r1 = Rows(i).Find(p)
  End If
   
  If Trim(Sheet9.Cells(i + 1, j)) <> "" Then
  q = Sheet9.Cells(i + 1, j).Value
  'MsgBox (q)
  Set r2 = Rows(i + 1).Find(q)
  End If

  Next
  ActiveSheet.Shapes.AddLine r1.Left + r1.Width * 0.5, r1.Top + r1.Height * 0.7, r2.Left + r2.Width * 0.5, r2.Top + r2.Height * 0.3
 

  Next
   
End Sub

每行有一个数据,将数据用线条连接起来,跟3D走势图类似

[解决办法]
不是美女不是帅哥的问一下

哪里不对，怎么不对？
[解决办法]

VB code

Sub test()    Dim r1 As Range, r2 As Range    Dim p, q    'ActiveSheet.DrawingObjects.Select    'MsgBox Sheet9.Cells(1, 4).Value    For i = 1 To 5         [a:i].HorizontalAlignment = xlCenter         If Trim(Sheet1.Cells(i, i)) <> "" Then         p = Sheet1.Cells(i, i).Value         ' MsgBox (p)         Set r1 = Rows(i).Find(p)         End If             If Trim(Sheet1.Cells(i + 1, i + 1)) <> "" Then         q = Sheet1.Cells(i + 1, i + 1).Value         'MsgBox (q)         Set r2 = Rows(i + 1).Find(q)         End If            ActiveSheet.Shapes.AddLine r1.Left + r1.Width * 0.5, r1.Top + r1.Height * 0.7, r2.Left + r2.Width * 0.5, r2.Top + r2.Height * 0.3    Next    End Sub