在Excel中，使用宏來分列通常意味著你想要自動化一個可能重復的任務，比如將一個包含多列數(shù)據(jù)的單元格區(qū)域轉(zhuǎn)換為單獨的列。以下是一個使用VBA（Visual Basic for Applications）宏來分列的例子。

你需要打開Excel，然后按下 `Alt + F11` 打開VBA編輯器。以下是分列的宏代碼：

```vba

Sub SplitColumns()

Dim ws As Worksheet

Set ws = ActiveSheet

' 設置需要分列的區(qū)域的起始單元格

Dim startCell As Range

Set startCell = ws.Range("A1") ' 假設從A1單元格開始

' 設置分列的寬度，這里假設每列寬度為10

Dim columnWidth As Integer

columnWidth = 10

' 獲取需要分列的單元格區(qū)域的列數(shù)

Dim totalColumns As Integer

totalColumns = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' 遍歷每一列，并分列

Dim i As Integer

For i = 1 To totalColumns

' 將每一列的內(nèi)容復制到新列

ws.Cells(1, ws.Columns.Count + 1).Value = ws.Cells(1, i).Value

' 調(diào)整列寬

ws.Columns(ws.Columns.Count).Width = columnWidth

Next i

' 清除原始區(qū)域的內(nèi)容

ws.Range(startCell, ws.Cells(1, totalColumns)).ClearContents

End Sub

```

在VBA編輯器中，你可以將這段代碼復制并粘貼到一個新的模塊中。要運行這個宏，你可以按 `F5`，或者在VBA編輯器中選擇“運行”菜單中的“運行子程序/用戶定義的函數(shù)”。

請注意以下幾點：

1. 你需要根據(jù)你的具體需求調(diào)整 `startCell` 的位置，即分列開始的位置。

2. `columnWidth` 變量設置為每列的寬度，你可能需要根據(jù)實際情況調(diào)整這個值。

3. 代碼中的 `totalColumns` 變量是自動計算的，它將獲取原始數(shù)據(jù)區(qū)域的最后一列。

4. 在運行宏之前，請確保你理解代碼的作用，并備份你的工作，因為宏可能會修改你的數(shù)據(jù)。

使用宏進行分列是一個高級操作，建議你在實際操作之前對VBA有一定的了解。