excel中行列轉換的教程

　　Excel中行列具體該如何進行轉換呢?下面是由學習啦小編分享的excel中行列轉換的教程，以供大家閱讀和學習。

　　excel中行列轉換的教程：

　　行列轉換步驟1：首先一起來看一下最原始的數據格式。最終要生成的結果數據格式如圖所示。由于涉及的數據記錄很多，因此必須要使用自動化方法來解決問題。

　　行列轉換步驟2：點擊“開發工具”選項卡，接著點擊“Visual Basic”按鈕進行VBA編程環境(也可以通過按鍵盤組合鍵“Alt+F11”進入)。

　　行列轉換步驟3：在VBA環境下，右擊“Microsoft Excel 對象”，選擇“插入”→“模塊”，創建一個新的模塊窗口。

　　行列轉換步驟4：接著點擊“插入”→“過程”，在打開的“添加過程”窗口中，將名稱設置為“GetCotent”，同時勾選“函數”，最后點擊“確定”按鈕。

　　行列轉換步驟5：在打開的“模塊1”中輸入如圖所示的代碼：

　　'row 表示記錄所在的行號

　　'col 表示記錄所在的列號

　　'k 表示當前編輯單元格所在的列號

　　Public Function GetContent(row As Integer, col As Integer, k As Integer)

　　GetContent = Sheets(1).Cells(row + (k - 2) * 6, col).Value

　　End Function

　　行列轉換步驟6：返回Excel界面，在整個文檔的最前面插入指定的行數，在此小編插入5行，并制作如圖所示的界面以備使用。

　　行列轉換步驟7：接著在B1單元格中輸入公式“=GetContent(ROW(B6),2,COLUMN())”，并按回車鍵。

　　行列轉換步驟8：然后將該公式復制B2到B4行，在列方面根據記錄的個數進行復制，也可以采用鼠標拖動的形式進行復制。最終結果如圖所示。