返回列表 上一主題 發帖

[發問] 請問如何快速將每一筆資料串起來

本帖最後由 linyancheng 於 2018-6-17 19:40 編輯

試試這個VBA代碼,
可處理截斷成兩行或三行以上的資料串,
但日期及時間格式必須有此規律性。

Sub 資料串連()

    Dim P As Paragraph
    Dim timeP As Paragraph
   
    For Each P In ActiveDocument.Paragraphs
        If Left(P.Range.Text, 13) Like "??:?? - ??:??" Then
            Set timeP = P
        ElseIf Left(P.Range.Text, 10) Like "????-??-??" Then
            '不處理
        Else
            If Not timeP Is Nothing Then
                timeP.Range.Text = Replace(timeP.Range.Text, vbCr, "")
            End If
        End If
    Next P

End Sub

TOP

VBA代碼文件

資料串連.zip (6.74 KB)

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題