如果用自定義函式處理，程式碼如下Function FGTEXT(Text, Patrn, Optional ByVal Text1 As String = "－") "第一個引數是原字串，第二個引數是間隔數，第三個變數是用於連線的字元，預設為“-” Dim i&, Str1$, Str2$ " 建立變數。 i = Len(Text) For x = 1 To i Step Patrn "在字串中迴圈 Str2 = Mid(Text, x, Patrn) If Str1 = "" Then Str1 = Str2 Else Str1 = Str1 & Text1 & Str2 End If Next x FGTEXT = Str1End Function如你的資料在A列，B1輸入公式=fgtext(A1,4,)這樣的結果就是每四個為一組，用“-”連線，第三個引數是預設-，改為其他字元就會用其他字元連線。公式下拉完成自定義函式的方法：按ALT+F11開啟VBE編輯器，在左邊欄中插入一個模組，在右邊的編輯欄中貼上以上程式碼，關閉編輯器自定義函式就可以直接在表格中使用了。
如果用自定義函式處理，程式碼如下Function FGTEXT(Text, Patrn, Optional ByVal Text1 As String = "－") "第一個引數是原字串，第二個引數是間隔數，第三個變數是用於連線的字元，預設為“-” Dim i&, Str1$, Str2$ " 建立變數。 i = Len(Text) For x = 1 To i Step Patrn "在字串中迴圈 Str2 = Mid(Text, x, Patrn) If Str1 = "" Then Str1 = Str2 Else Str1 = Str1 & Text1 & Str2 End If Next x FGTEXT = Str1End Function如你的資料在A列，B1輸入公式=fgtext(A1,4,)這樣的結果就是每四個為一組，用“-”連線，第三個引數是預設-，改為其他字元就會用其他字元連線。公式下拉完成自定義函式的方法：按ALT+F11開啟VBE編輯器，在左邊欄中插入一個模組，在右邊的編輯欄中貼上以上程式碼，關閉編輯器自定義函式就可以直接在表格中使用了。