修法布施得聰明智慧，多分享讓生活更美好。上次分享了《Excel怎樣把三列XYZ表轉(zhuǎn)X不重復(fù)YZ多重表》，介紹了把把三列XYZ表轉(zhuǎn)X不重復(fù)YZ多重表處理方法，下面通過(guò)一實(shí)例如圖（百度知道問(wèn)題）分享把多列

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

打開(kāi)Excel并設(shè)置宏

1. 首先打開(kāi)Microsoft Office Excel 2007，另存文件名為《Excel怎樣把多列的數(shù)據(jù)按列順序轉(zhuǎn)換成單列.xlsm》。

2. 按下快捷鍵ALT F11打開(kāi)VBE（宏）編輯界面，然后在菜單欄【插入】下拉列表中選擇【模塊（M）】。

3. 在新建的模塊中復(fù)制以下代碼：

```vba

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 , 1 To 1)

For i 1 To c

For j 1 To r

k k 1

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

Next j

Next i

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

(k, 1) mb

End Sub

```

操作步驟

4. 回到工作表窗口，選擇要處理的數(shù)據(jù)單元格區(qū)域，然后運(yùn)行【多列轉(zhuǎn)單列】宏。在菜單欄中選擇【視圖】，在下拉列表中找到【宏】，打開(kāi)宏對(duì)話框，選擇該宏名并執(zhí)行。系統(tǒng)會(huì)提示“選擇轉(zhuǎn)出一列一個(gè)單元格”，選定后即可看到轉(zhuǎn)換結(jié)果。

5. 運(yùn)行過(guò)程如圖所示，數(shù)據(jù)將按照列順序轉(zhuǎn)換成單列展示。

總結(jié)

如果您覺(jué)得這篇文章對(duì)您有幫助，請(qǐng)點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”支持作者！如果您有任何疑問(wèn)或需要進(jìn)一步幫助，請(qǐng)點(diǎn)擊下方的“我有疑問(wèn)”。感謝您的閱讀與支持！