[已解决]单元格按照相隔4秒跳转

CCTV20082008

期待

CCTV20082008

daling yes you can

FF7

占位学着做个试试：Sub Testing()
  Dim En As Long
  Dim St As Double
  En = 755
  Do While En > 10
     St = Timer
     Do While Timer < St + 4
        DoEvents
     Loop
     Moveing Cells(En, 4)
     En = En - 20
  Loop
End Sub

Sub Moveing(ByVal Rng As Range)
  Sheet1.Shapes("Picture 1").Top = Rng.Top
  Sheet1.Shapes("Picture 1").Left = Rng.Left
End Sub