如何在Excel中從左到右轉(zhuǎn)置單元格？

當(dāng)我們?cè)贓xcel工作表中鍵入值時(shí)，通常會(huì)從左到右鍵入它們，但是在某些情況下，您可能希望轉(zhuǎn)置從左到右從右到左的單元格，如下圖所示。 Excel中沒(méi)有內(nèi)置功能可以幫助您快速解決該問(wèn)題，但是在本文中，我介紹了一些技巧來(lái)幫您一個(gè)忙。

使用VBA從左向右轉(zhuǎn)置單元

從左到右或從上到下轉(zhuǎn)置單元格 Kutools for Excel

使用VBA從左向右轉(zhuǎn)置單元

要在不使用公式的情況下快速?gòu)淖蟮接肄D(zhuǎn)置單元，可以使用VBA代碼。

1。 按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 點(diǎn)擊 插頁(yè) > 模塊，將以下代碼粘貼到空白腳本中。

VBA：從左到右移調(diào)

Sub RearrangeColumns()UpdatebyExtenoffice20161125Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As VariantDim strTemp As StringOn Error Resume NextstrTemp = 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 -1NewOrder = NewOrder + Mid(strTemp, i, 1)Next iLastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _SearchDirection:=xlPrevious, LookIn:=xlFormulas).RowLetters = Split(NewOrder, ",")ReDim NewLetters(1 To UBound(Letters) + 1)Application.ScreenUpdating = FalseFor xLng = 0 To UBound(Letters)NewLetters(xLng + 1) = Columns(Letters(xLng)).ColumnNextApplication.ScreenUpdating = TrueRange("A1").Resize(LastRow, UBound(Letters) + 1) = _Application.Index(Cells, evaluate("ROW(1:" & LastRow & ")"), NewLetters)End SubCopy

3。 按 F5

鍵以運(yùn)行代碼，將彈出一個(gè)對(duì)話框，供您輸入要轉(zhuǎn)置的列字母。 請(qǐng)用逗號(hào)分隔這些專欄字母，如下圖所示。

4。 點(diǎn)擊 OK。 現(xiàn)在，選擇已從左移到右。

從左到右或從上到下轉(zhuǎn)置單元格 Kutools for Excel

如果你有 Kutools for Excel 安裝后，您可以根據(jù)需要使用其翻轉(zhuǎn)垂直范圍和翻轉(zhuǎn)水平范圍實(shí)用程序從左到右或從上到下快速轉(zhuǎn)置單元格。

Kutools for Excel, 與超過(guò) 300 方便的功能，使您的工作更加輕松。免費(fèi)全功能 30 天

安裝后 Kutools for Excel, 請(qǐng)按以下步驟:( Kutools for Excel 現(xiàn)在！）

選擇要從左到右或從上到下轉(zhuǎn)置的單元格，單擊 Kutools > Range > 翻轉(zhuǎn)水平范圍/翻轉(zhuǎn)垂直范圍 > 所有類型 or 僅翻轉(zhuǎn)值

。 查看屏幕截圖：

翻轉(zhuǎn)水平范圍>全部：水平翻轉(zhuǎn)>僅翻轉(zhuǎn)值：翻轉(zhuǎn)垂直范圍>全部：翻轉(zhuǎn)垂直范圍>僅翻轉(zhuǎn)值：

翻轉(zhuǎn)數(shù)據(jù)

您可能有興趣：在Excel中自動(dòng)填充/右移時(shí)如何轉(zhuǎn)置參考？如何在Excel中轉(zhuǎn)??置和鏈接值？

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel