สลับเนื้อหาเซลล์ใน Excel หรือไม่

มีวิธีที่ง่ายในการสลับเนื้อหาของสองเซลล์ใน Microsoft Excel หรือไม่

โดยง่ายฉันหมายถึงแป้นพิมพ์ลัดหรือรายการเมนูโดยไม่เกี่ยวข้องกับการคัดลอกไปยังเซลล์ชั่วคราวหรือเขียนสคริปต์ VBA หรืออะไรทำนองนั้น กล่าวอีกนัยหนึ่งฉันกำลังมองหาวิธีเพียงแค่เลือกสองเซลล์และคลิกที่รายการเมนูบางอย่างหรือกดแป้นผสมบางอย่างที่จะสลับเนื้อหาของพวกเขา แน่นอนว่าต้องมีวิธีที่จะทำเช่นนี้?

จาก: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

บางครั้งมีเซลล์ที่อยู่ติดกันสองเซลล์ที่ต้องสลับ เราสามารถทำได้ด้วยตนเองอย่างง่ายดาย ดูภาพหน้าจอต่อไปนี้ฉันต้องการสลับเซลล์ A4 และ B4 โปรดทำดังนี้:

1. เลือกเซลล์ที่คุณต้องการสลับ ในตัวอย่างนี้เลือกเซลล์ A4

2. กดปุ่มShiftแล้ววางเคอร์เซอร์ที่ขอบด้านขวา

3. จากนั้นลากเคอร์เซอร์ไปที่ขอบด้านขวาของเซลล์ B4

4. เมื่อมีข้อความ“ 工” ปรากฏขึ้นให้ปล่อยเมาส์

5. และเนื้อหาของเซลล์ทั้งสองได้รับการแลกเปลี่ยน

ด้วยวิธีนี้เรายังสามารถสลับสองแถวหรือคอลัมน์ที่อยู่ติดกัน

สำหรับกรณีเฉพาะของที่อยู่ติดกันขนาดเดียวกันช่วงสี่เหลี่ยมคุณสามารถใช้วิธีการอธิบายในคำตอบนี้ไปคำถามที่คล้ายกัน

1. เลือกช่วงขวาหรือล่าง
2. กดCtrl+X
3. เลือกช่วงที่อยู่ติดกัน (เช่นด้านบนหรือด้านซ้ายโดยตรง)
4. กดCtrl+ +( +โดยปกติจะอยู่เหนือ=คีย์ดังนั้นจึงแปลเป็นCtrl+ Shift+ =)

หมายเหตุคุณสามารถใช้กระบวนงานเดียวกันเพื่อสลับแถวหรือคอลัมน์ที่อยู่ติดกันทั้งหมด

โดยง่ายฉันหมายถึงแป้นพิมพ์ลัดหรือรายการเมนูโดยไม่เกี่ยวข้องกับการคัดลอกไปยังเซลล์ชั่วคราวหรือเขียนสคริปต์ VBAหรืออะไรทำนองนั้น ฉันกำลังมองหาวิธีที่จะเพียงแค่เลือกสองเซลล์และคลิกที่รายการเมนูหรือกดปุ่มผสมบางอย่างที่จะสลับเนื้อหาของพวกเขา

ทำไมต้องมีข้อ จำกัด นี้ การสร้างแมโครทำให้สิ่งนี้เล็กน้อย เท่าที่ฉันรู้มันไม่สามารถทำอย่างอื่นได้ คุณสามารถกำหนดแมโครให้กับปุ่มหรือปุ่มลัด

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

ไม่ไม่มีวิธีการสลับเนื้อหาของเซลล์สองเซลล์ใน Excel โดยไม่ต้องเขียนแมโครของคุณเองเพื่อทำมัน

แก้ไข: ดูเหมือนว่าตอนนี้อาจเป็นวิธีที่ง่ายในการสลับเนื้อหาของเซลล์ใน Excel เวอร์ชันที่ใหม่กว่าดังนั้นคำตอบนี้อาจล้าสมัยไปแล้ว

เลือกเซลล์ชุดแรกที่จะสลับและกดctrl+ x:

เลือกเซลล์ข้างคนที่คุณต้องการแลกเปลี่ยนกับการตี+ctrl+

คุณสามารถวางรายการในคลิปบอร์ดได้มากถึง 25 รายการดังนั้นจึงง่ายต่อการสลับโดยใช้แท็บ ctr + หรือ cmd + แท็บ mac

• เลือกเซลล์ด้านล่างที่คุณต้องการสลับ
• กดCtrl+ Xและไปที่เซลล์ที่คุณต้องการสลับ
• กดCtrl+ Shift+=

การแลกเปลี่ยนจะดำเนินการ

ฉันอ่านโพสต์นี้ แต่จำเป็นต้องมีมาโครจริงๆในการสลับช่วงเต็ม นอกจากนี้ฉันต้องสลับสี ดัดแปลงมาโครที่โพสต์ แต่แรกแล้วเล็กน้อยอาจเป็นประโยชน์กับบางคน

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If


    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub