close

1089

Excel裡合併散落在不同欄的資料

示範檔

範例檔

1089.XLSX

結果檔

1089F.XLSX

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

想合併成如下的狀況,應該怎麼做?」

錦子老師:「佳穎,這個必須寫一個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二欄空白位置處,一次只可二欄,如下圖。


arrow
arrow
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()