Sub 朗读A列()
    Dim myStr$, i&, tRng As Range
    Dim mySpk As Speech
    i = [A65536].End(xlUp).Row
    Set mySpk = Application.Speech
    myStr = Replace(Replace(Range("A1:A" & i).Address, "$", ""), ":", "到")
    On Error Resume Next
    With mySpk
        .Speak "_", , , False
        For Each tRng In Range("A1:A" & i)
            If Err.Number <> 0 Then .Speak "_", , , True: Exit Sub
            If Not tRng Is Nothing Then .Speak tRng, , , False
        Next
    End With
End Sub

这个有用，留个记号！

这个有用，留个记号！