請你將內容複製到Sheet1的A列中，按按鈕執行即可完成轉換。Sub 按鈕1_Click()Dim i As Long, j As Long, k As IntegerLastRow = Cells(Rows.Count, 1).End(xlUp).Rowi = 1j = 1Do While i <= LastRow For k = 1 To 6 Sheets("Sheet1").Select Range(Cells(i, 1), Cells(i + 44, 1)).Select Selection.Copy Sheets("Sheet2").Select Cells(j, k).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False i = i + 45 Next j = j + 45LoopCells(1, 1).SelectEnd Sub

EXCEL不支援分欄，手動處理很麻煩，最簡單的辦法是全選、複製、貼上到WORD，在WORD裡面選擇分欄，然後列印，如下圖：