修法布施得聰明智慧，多分享讓生活更美好。上次分享了《Excel怎樣把多列的數(shù)據(jù)按列順序轉(zhuǎn)換成單列》，介紹了把多列的數(shù)據(jù)按列順序轉(zhuǎn)換成單列處理方法，下面通過一實(shí)例如圖（百度知道問題）分享把多列數(shù)據(jù)轉(zhuǎn)成首

修法布施得聰明智慧，多分享讓生活更美好。上次分享了《Excel怎樣把多列的數(shù)據(jù)按列順序轉(zhuǎn)換成單列》，介紹了把多列的數(shù)據(jù)按列順序轉(zhuǎn)換成單列處理方法，下面通過一實(shí)例如圖（百度知道問題）分享把多列數(shù)據(jù)轉(zhuǎn)成首列與其他列合成兩列處理方法。

步驟1：打開Excel并另存文件

首先打開Microsoft Office Excel 2007，上例文件另存文件名《Excel怎樣把多列數(shù)據(jù)轉(zhuǎn)成首列與其他列合成兩列 .xlsm》（演示文件，下面代碼復(fù)制到能運(yùn)行宏的工作簿都可以）如圖。

步驟2：打開宏編輯界面

然后按下快捷鍵ALT F11打開VBE（宏）編輯界面，然后點(diǎn)菜單欄【插入】下拉中列表中點(diǎn)【模塊（M）】如圖。

步驟3：插入宏代碼

然后插入了一個模塊1，在代碼框中復(fù)制如下代碼：

```

Sub 多列轉(zhuǎn)兩列()

Dim myr As Range, r As Long, c As Long, i As Long, j As Long, mb(), k As Long

Set myr Selection

r

c

ReDim mb(1 To (c - 1) * r, 1 To 2)

For i 2 To c

For j 1 To r

k k 1

mb(k, 1) myr.Cells(j, 1).Value

mb(k, 2) myr.Cells(j, i).Value

Next j

Next i

Set myr (prompt:"選擇轉(zhuǎn)出兩列一個單元格", Type:8)

(k, 2) mb

End Sub

```

步驟4：運(yùn)行宏代碼

以上操作動態(tài)過程如下：

步驟5：輸出結(jié)果

回到工作表窗口，首先選數(shù)據(jù)單元格區(qū)域，然后運(yùn)行【多列轉(zhuǎn)兩列】宏（菜單欄中點(diǎn)【視圖】中下列表中【宏】列表【查看宏(V)】打開宏對方框，選該宏名，執(zhí)行），提示“選擇轉(zhuǎn)出兩列一個單元格”，選好后輸出結(jié)果，運(yùn)行過程如下圖。

結(jié)束語

如果覺得這篇經(jīng)驗(yàn)幫到了您，請點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”支持我！還有疑問的話可以點(diǎn)擊下方的“我有疑問”，謝謝啦！