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二欄空白位置處,一次只可二欄,如下圖。
文章標籤
全站熱搜
留言列表