錦子老師

佳穎：「錦子老師，有許多相同性質的資料，散落在不同的欄位裡，每兩欄為一組，每一組的資料筆數都不同。

想合併成如下的狀況，應該怎麼做？」

錦子老師：「佳穎，這個必須寫一個VBA巨集來處很。」

首先我們按 ALT+F11鍵，開啟VBA視窗。

點取「插入 > 模組」指令，開啟一個空白模組表。

輸入下列程式：

Sub Text()

    Range("C1:D1").Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Cut

    Range("A1").Select

    Selection.End(xlDown).Select  '選到A欄最後一筆資料的位置

    ActiveCell.Offset(1).Select

    ActiveSheet.Paste

    Columns("C:D").Select

    Selection.Delete Shift:=xlToLeft

End Sub

按ALT+F4鍵關閉VBA視窗。

點取「檢視 > 巨集 > 檢視巨集」指令。

在【巨集】對話方塊，點取「TEXT」項目，再點取「執行」鈕。

會將CD二欄資料搬移到AB二欄空白位置處，一次只可二欄，如下圖。