excel中行列轉(zhuǎn)換的教程
Excel中行列具體該如何進(jìn)行轉(zhuǎn)換呢?下面是由學(xué)習(xí)啦小編分享的excel中行列轉(zhuǎn)換的教程,以供大家閱讀和學(xué)習(xí)。
excel中行列轉(zhuǎn)換的教程:
行列轉(zhuǎn)換步驟1:首先一起來(lái)看一下最原始的數(shù)據(jù)格式。最終要生成的結(jié)果數(shù)據(jù)格式如圖所示。由于涉及的數(shù)據(jù)記錄很多,因此必須要使用自動(dòng)化方法來(lái)解決問(wèn)題。
行列轉(zhuǎn)換步驟2:點(diǎn)擊“開(kāi)發(fā)工具”選項(xiàng)卡,接著點(diǎn)擊“Visual Basic”按鈕進(jìn)行VBA編程環(huán)境(也可以通過(guò)按鍵盤(pán)組合鍵“Alt+F11”進(jìn)入)。
行列轉(zhuǎn)換步驟3:在VBA環(huán)境下,右擊“Microsoft Excel 對(duì)象”,選擇“插入”→“模塊”,創(chuàng)建一個(gè)新的模塊窗口。
行列轉(zhuǎn)換步驟4:接著點(diǎn)擊“插入”→“過(guò)程”,在打開(kāi)的“添加過(guò)程”窗口中,將名稱(chēng)設(shè)置為“GetCotent”,同時(shí)勾選“函數(shù)”,最后點(diǎn)擊“確定”按鈕。
行列轉(zhuǎn)換步驟5:在打開(kāi)的“模塊1”中輸入如圖所示的代碼:
'row 表示記錄所在的行號(hào)
'col 表示記錄所在的列號(hào)
'k 表示當(dāng)前編輯單元格所在的列號(hào)
Public Function GetContent(row As Integer, col As Integer, k As Integer)
GetContent = Sheets(1).Cells(row + (k - 2) * 6, col).Value
End Function
行列轉(zhuǎn)換步驟6:返回Excel界面,在整個(gè)文檔的最前面插入指定的行數(shù),在此小編插入5行,并制作如圖所示的界面以備使用。
行列轉(zhuǎn)換步驟7:接著在B1單元格中輸入公式“=GetContent(ROW(B6),2,COLUMN())”,并按回車(chē)鍵。
行列轉(zhuǎn)換步驟8:然后將該公式復(fù)制B2到B4行,在列方面根據(jù)記錄的個(gè)數(shù)進(jìn)行復(fù)制,也可以采用鼠標(biāo)拖動(dòng)的形式進(jìn)行復(fù)制。最終結(jié)果如圖所示。