'这是改进版
'------------------
'1. 看完后翻回文章开头
'2. 如果一行文字太长状态栏显示不下，就截断成两行
'------------------
Dim i As Integer

Sub Macro1()
    Sheets("test").Visible = False
    Dim MaxLineLen As Integer
    MaxLineLen = 30
    
    Dim cellNo As String
    cellNo = "A" & CStr(i + 1)
    Dim cellNextNo As String
    cellNextNo = "A" & CStr(i + 2)
    
    Dim str As String
    str = Sheets("test").Range(cellNo)
    
    If Len(str) > MaxLineLen Then
        'covent long line to 2 lines
        Dim leftStr As String
        Dim rightStr As String
        leftStr = Left(str, MaxLineLen)
        rightStr = Right(str, Len(str) - MaxLineLen)
        str = leftStr
        Sheets("test").Range(cellNo).Insert Shift:=xlDown
        Sheets("test").Range(cellNo) = leftStr
        Sheets("test").Range(cellNextNo) = rightStr
    End If
    Application.StatusBar = str
    i = i + 1
    If i > Sheets("test").[a65536].End(xlUp).Row Then
        i = 0
    End If
    Application.OnTime Now + TimeValue("00:00:03"), "Macro1"
End Sub