วิธีการเปลี่ยนเซลล์จากซ้ายไปขวาใน Excel

เมื่อเราพิมพ์ค่าในแผ่นงาน Excel เรามักจะพิมพ์จากซ้ายไปขวา แต่ในบางกรณีคุณอาจต้องการเปลี่ยนเซลล์จากซ้ายไปขวาไปขวาไปซ้ายตามภาพด้านล่างที่แสดง ไม่มีคุณลักษณะในตัวใน Excel ที่สามารถช่วยคุณแก้ปัญหาได้อย่างรวดเร็ว แต่ในบทความนี้ฉันขอแนะนำเทคนิคบางอย่างที่จะช่วยคุณได้

เปลี่ยนเซลล์จากซ้ายไปขวาด้วย VBA

ย้ายเซลล์จากซ้ายไปขวาหรือขึ้นลงด้วย Kutools for Excel

เปลี่ยนเซลล์จากซ้ายไปขวาด้วย VBA

หากต้องการเปลี่ยนเซลล์จากซ้ายไปขวาอย่างรวดเร็วโดยไม่ต้องใช้สูตรคุณสามารถใช้รหัส VBA

1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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 คลิก OK. ตอนนี้การเลือกถูกย้ายจากซ้ายไปขวาแล้ว

ย้ายเซลล์จากซ้ายไปขวาหรือขึ้นลงด้วย Kutools for Excel

หากคุณติดตั้ง Kutools for Excel คุณสามารถย้ายเซลล์จากซ้ายไปขวาหรือขึ้นลงได้อย่างรวดเร็วด้วยยูทิลิตี้ Flip Vertical Range และ Flip Horizontal Range ตามที่คุณต้องการ

หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้ :(ดาวน์โหลด Kutools for Excel ได้ฟรีทันที!)

เลือกเซลล์ที่คุณต้องการเปลี่ยนจากซ้ายไปขวาหรือขึ้นลงคลิก Kutools > พิสัย > พลิกช่วงแนวนอน/พลิกช่วงแนวตั้ง > ทั้งหมด or พลิกค่าเท่านั้น. ดูภาพหน้าจอ:

พลิกช่วงแนวนอน> ทั้งหมด:

พลิกแนวนอน> เฉพาะค่าพลิก:

พลิกช่วงแนวตั้ง> ทั้งหมด:	พลิกช่วงแนวตั้ง> เฉพาะค่าพลิก:

  พลิกข้อมูล

คุณอาจสนใจ:

• วิธีการเปลี่ยนการอ้างอิงในขณะที่เติมอัตโนมัติ / ขวาใน Excel
• วิธีการเปลี่ยนและเชื่อมโยงค่าใน Excel