修法布施得聰明智慧，多分享讓生活更美好。excel在處理數(shù)據(jù)時由列變成行，將行變成列，可以用【復(fù)制】數(shù)據(jù)，【選擇粘貼】對話框勾選“轉(zhuǎn)置”而達(dá)到。工作中如一列或一行數(shù)據(jù)分幾列幾行輸出時excel無內(nèi)置操

修法布施得聰明智慧，多分享讓生活更美好。excel在處理數(shù)據(jù)時由列變成行，將行變成列，可以用【復(fù)制】數(shù)據(jù)，【選擇粘貼】對話框勾選“轉(zhuǎn)置”而達(dá)到。工作中如一列或一行數(shù)據(jù)分幾列幾行輸出時excel無內(nèi)置操作，如下圖。

VBA處理玩轉(zhuǎn)excel數(shù)據(jù)快速排列

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

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

Option Base 1
Sub 數(shù)據(jù)排列()
    Dim r As Long, c As Long, yn, mb As Range, nb(), i As Long, j As Long, k As Long
    Set mb  (Prompt:"選擇要排列數(shù)據(jù)的單元格：", Type:8)
    yn  MsgBox("排列方式：按先行后列（是），按先列后行（否）", vbYesNo)
    k  0
    If yn  vbYes Then
        r  (Prompt:"輸入排列數(shù)據(jù)行數(shù)：", Type:1)
        c  Abs(Int(-1 *  / r))
        ReDim nb(r, c)
        For j  1 To c
            If k >  Then Exit For
            For i  1 To r
                k  k   1
                If k >  Then Exit For
                nb(i, j)  mb.Cells(k).Value
            Next i
        Next j
    Else
        c  (Prompt:"輸入排列數(shù)據(jù)列數(shù)：", Type:1)
        r  Abs(Int(-1 *  / c))
        ReDim nb(r, c)
        For i  1 To r
            If k >  Then Exit For
            For j  1 To c
                k  k   1
                If k >  Then Exit For
                nb(i, j)  mb.Cells(k).Value
            Next j
        Next i
    End If
    Set mb  (Prompt:"選擇輸出的一個單元格：", Type:8)
    Range(mb, (r - 1, c - 1))  nb
End Sub

3. 需要數(shù)據(jù)排列時運(yùn)行上面宏代碼可以達(dá)到你想要的排列。方法一，菜單欄中鼠標(biāo)點(diǎn)【視圖】，列表中找到【宏】，然后鼠標(biāo)點(diǎn)【宏】的下箭頭顯示下拉列表，找到【查看宏】并鼠標(biāo)點(diǎn)下，顯示“宏”對話框，選宏名“數(shù)據(jù)排列”，鼠標(biāo)點(diǎn)右邊【執(zhí)行】運(yùn)行該宏，顯示輸入對話框，“選擇要排列數(shù)據(jù)的單元格”，選擇排列數(shù)據(jù)的單元格“ABCDEF”后，【確定】，再顯示選擇對話框“排列方式：按先行后列（是），按先列后行（否）”，這里的“先行后列”是先排完行再排列，“先列后行”是先排完列再排行。選“是”，顯示輸入對話框，要求“輸入排列數(shù)據(jù)行數(shù)”，輸1行，【確定】，再顯示輸入對話框，要求“選擇輸出的一個單元格”，選F7單元格后，【確定】，在F7單元格顯示排列一行數(shù)據(jù)“ABCDEF”。

4. 方法二：為了方便操作，在工作表上面制作一個操作運(yùn)行宏的命令按鍵。操作方法是點(diǎn)工具欄最右邊箭頭顯示下拉列表，找到【其它命令（M）】點(diǎn)下，打開“Excel選項”對話框，在“從下列位置選擇命令（C）”下拉箭頭選【開發(fā)工具選項卡】，在列表框中顯示列表中選擇【插入控件】，然后對話框中【添加（A）】按扭，在右邊工具欄列表顯示增加一個“插入控件”，點(diǎn)【確定】。這樣在快速訪問工具欄多了一個【插入控件】按扭工具。然后點(diǎn)下該工具，顯示下拉列表“表單控件”選最左上第一個【按扭（窗體控件）】，然后在表格中光標(biāo)變十字，點(diǎn)下按住鼠標(biāo)左鍵不放生成方框再松開左鍵，彈出“指定宏”對話框，選宏名“數(shù)據(jù)排列”，點(diǎn)【確定】，選表中【按扭2】改名為【數(shù)據(jù)排列】按鍵，直接點(diǎn)該按扭可以運(yùn)行該宏。

5. 【數(shù)據(jù)排列】宏按扭工具操作開始的實(shí)例操作過程如下圖：