樂享所知2018-04-12 22:43:19

這個用VBA方法最快！

先看一下演示（這裡只是以1-24資料進行演示）

具體的程式碼如下：

Sub 將一列資料轉換為多行多列（）

Dim Arr（）， Count

Count = 0

X = Selection。Rows。Count

a = Selection。Value

rowN = InputBox（“請輸入行數（函式與列數的乘積要大於所選單元格的個數）”， “輸入行數：”， 1）

colN = InputBox（“請輸入列數（函式與列數的乘積要大於所選單元格的個數）”， “輸入列數：”， X / rowN）

ReDim Arr（1 To rowN， 1 To colN）

For i = 1 To colN ‘優先按列

For j = 1 To rowN

Count = Count + 1

Arr（j， i） = a（Count， 1）

Next j

Next i

Set tar = Application。InputBox（prompt：=“請選擇存放結果的單元格”， Title：=“結果存放”， Type：=8）

If tar Is Nothing Then

Exit Sub

End If

tar。Resize（colN， rowN） = WorksheetFunction。Transpose（Arr） ’按列寫入

End Sub

對於程式碼，如有疑問可以私信交流！

更多職場、辦公技能等乾貨和有趣實用的軟體推薦，歡迎關注“樂享所知”頭條號，查閱歷史文章，獲取更多幹貨、實用外掛等等！

Excel到PowerBI2018-04-13 10:25:49

Excel表格如何將一列數字快速分成幾行幾列，使用Excel2016的新功能Power Query（Excel2010或Excel2013可到微軟官方下載相應的外掛）非常簡單，點幾下滑鼠就好了，而且隨著資料的變化，可以一鍵重新整理，具體步驟如下：

1、獲取資料到Power Query

2、新增索引列

3、對索引列取整除數，如分成6行

4、對索引列提取餘數（模）

5、透視

搞定：

全過程不需要寫任何的函式、公式、程式碼，滑鼠點幾下就搞定了，而且，有新的資料進來後，一鍵重新整理搞定：

【私信“材料”直接下載系列訓練材料】

【Excel必備基礎小動畫】

【60+函式彙總案例】

【資料透視基礎精選10篇】

【Power Query入門到實戰80篇】

【Power Pivot 基礎精選15篇】

歡迎直接檢視連結：https：//app。powerbi。com/view？r=eyJrIjoiZDVhZDBlMTYtNDkzNC00YWFjLWFhMmMtMmI3NTk2Y2ZhMzc3IiwidCI6ImUxMTAyMjkxLTNkYzUtNDA1OC1iMDc3LWQ0YzU4YWJkMWRkOCIsImMiOjEwfQ%3D%3D

我是大海，微軟認證Excel專家，企業簽約Power BI顧問

讓我們一起學習，共同進步！