VBA自动填充E20为E19内容.

' 此角本只能在同一个excel文件中执行一次,多次执行会清除excel内容.
Dim R As String
Dim endr As String
Dim Radd As String
Dim times As String
R = 19 '输入开始执行的行号
c = 65536
times = 1
For i = 1 To 65536
    Range("E" & R).Select
    Application.CutCopyMode = False
    Selection.Cut
    Radd = R + 1
    Range("E" & Radd).Select
    ActiveSheet.Paste
    R = R + 3
    i = i + 1
    If Range("E" & R).Value = "" Then times = times + 1
    If times > 4 Then end
    
Next i