有三種分列方法

第一種使用自帶分列功能，在資料選項下，適用於有分列符或長度規範的，缺點是一次只能分成兩列。

第二種使用公式。優點是可以分成很多列，缺點是隻能處理長度規矩一致的資料。

第三種是強大的vb了。由於很久沒有用了，已經生疏，樓主可以找度娘。

有附件有截圖，才是問問題的正確姿勢。

一般分列就可以。

看字面意思，樓主是否想改變資料結構，如是，用公式即可。

幾個經典的引用共識都可以。

說到這裡應該能聽得懂。

我就不上圖和附件了，畢竟樓主也沒上傳。

關於這個問題，我有五種方法可以解決，大多數人把這個理解成文字分列，其實我想提問的人應該問的是分成幾行幾列，也就是對它進行一個重排。

資料分列方法如下

方法一：直接利用分列工具分列方法二：利用函式 left，right，mid等提取

函式語法 left(提取的單元格，位數（左邊開始數））

方法三：利用快速填充

手動填充前兩行資料，直接拖拽，設定為 “快速填充” 即可

舉個例子：

在實際工作中我們匯出的Excel表格通常如下：

而實際中往往要分成多列資料才美觀，而且方便列印,節約紙張。即如下圖效果：（若無需考慮排序等規則的情況下，可參考文中的辦法進行分列）

操作方法：

1、插入新列，填入序號，最大序號值就是要分幾列的值。

注：快速填序號的辦法,手工填入序號,如1和2,然後框選1和2,按住Ctrl往下拖即可重複數字1和2。

2、新建一張Excel表格，利用"自動篩選"，選取資料複製到新建的表格中，

利用篩選，選擇"1"。

選擇後，這部分資料便集中起來，複製到新建的表格中，剩餘的資料以同樣的辦法複製。

3、新表格中加入列標題(略)。

4、若有多頁，為保證打印出來每一頁都有列標題，則在"頁面設定" -> "工作表" -> "頂端標題行" 中指定標題即可。

一、一列變多列

在旁邊單元格輸入A1:A30，再選中這些單元格。使用Ctrl +H替換功能鍵，將“A”替換成“=A”

完成~~簡單吧哈哈

二、有規律的“一列變兩列”

如下面的例子，現在B1輸入“=A2”，選中“B1:B2”,往下面拖至合適位置。

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

1、獲取資料到Power Query

2、新增索引列

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

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

5、透視

搞定：

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

【60+函式彙總案例】

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

【Power Query入門到實戰80篇】

【Power Pivot 基礎精選15篇】

歡迎直接檢視連結：https://app.powerbi.com/view?r=eyJrIjoiZDVhZDBlMTYtNDkzNC00YWFjLWFhMmMtMmI3NTk2Y2ZhMzc3IiwidCI6ImUxMTAyMjkxLTNkYzUtNDA1OC1iMDc3LWQ0YzU4YWJkMWRkOCIsImMiOjEwfQ%3D%3D我是大海，微軟認證Excel專家，企業簽約Power BI顧問讓我們一起學習，共同進步！