京寵展信息指南
486
2025-03-31
如何在Excel中從左到右轉(zhuǎn)置單元格？
如何在Excel中從左到右轉(zhuǎn)置單元格？
當(dāng)我們?cè)贓xcel工作表中鍵入值時(shí)，通常會(huì)從左到右鍵入它們，但是在某些情況下，您可能希望轉(zhuǎn)置從左到右從右到左的單元格，如下圖所示。 Excel中沒有內(nèi)置功能可以幫助您快速解決該問題，但是在本文中，我介紹了一些技巧來(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()
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
Copy
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)下載免費(fèi)全功能 30 天
安裝后 Kutools for Excel, 請(qǐng)按以下步驟:(免費(fèi)下載 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
??? 超過(guò) 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過(guò)強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類型的下拉列表：通過(guò)各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來(lái)說(shuō)輕而易舉，對(duì)于專家來(lái)說(shuō)是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
office Tab 為 Office 帶來(lái)選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
