如何在 Excel 中將儲存格從左到右轉置？

當我們在 Excel 工作表中輸入值時，通常會從左到右輸入，但在某些情況下，您可能希望將儲存格從左到右轉置，如下方截圖所示。Excel 中沒有內建功能可以幫助您快速解決這個問題，但在本文中，我將向您展示一些技巧來幫助您完成。

使用 VBA 將儲存格從左到右轉置

使用 Kutools for Excel 將儲存格從左到右或從上到下轉置

使用 VBA 將儲存格從左到右轉置

若要快速將儲存格從左到右轉置而不使用公式，您可以使用 VBA 程式碼。

1. 按 Alt + F11 鍵以啟用 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，將以下程式碼貼到空白腳本中。

VBA：從左到右轉置

Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
  Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
  Dim strTemp As String
 
  On Error Resume Next
    strTemp = Application.InputBox _
    (Prompt:="Enter the column you want to transpose with comma separate", _
    Title:="Kutools For Excel", Type:=2)
    For i = Len(strTemp) To 1 Step -1
       NewOrder = NewOrder + Mid(strTemp, i, 1)
    Next i

  LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
            SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  Letters = Split(NewOrder, ",")
  ReDim NewLetters(1 To UBound(Letters) + 1)
  Application.ScreenUpdating = False
  For xLng = 0 To UBound(Letters)
    NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
  Next
  Application.ScreenUpdating = True
  Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
  Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub

3. 按 F5 鍵執行程式碼，此時會彈出一個對話框讓您輸入想要轉置的列字母。請用逗號分開這些列字母，如下方截圖所示。

4. 點擊 確定。現在選中的範圍已經從左到右進行了轉置。

使用 Kutools for Excel 將儲存格從左到右或從上到下轉置

如果您已安裝 Kutools for Excel，則可以使用「水平翻轉選區」和「垂直翻轉範圍」工具快速將儲存格從左到右或從上到下轉置。

安裝 Kutools for Excel 後，請按照以下步驟操作：（立即免費下載 Kutools for Excel！）

選擇您想從左到右或從上到下轉置的儲存格，點擊 Kutools > 區域 > 水平翻轉選區/垂直翻轉範圍 > 全部 或 僅翻轉內容。請參閱截圖：

水平翻轉選區 > 全部：

水平翻轉 > 僅翻轉內容：

垂直翻轉範圍 > 全部：	垂直翻轉範圍 > 僅翻轉內容：

示範：使用 Kutools for Excel 將儲存格從左到右或從上到下轉置

您可能會感興趣的內容：

• 如何在 Excel 中自動向下/向右填充時保持引用轉置？
• 如何在 Excel 中轉置並連結值？