Hoán đổi nội dung ô trong Excel?

Có cách nào dễ dàng để trao đổi nội dung của hai ô trong Microsoft Excel không?

Nói một cách dễ dàng, ý tôi là một phím tắt hoặc mục menu, không liên quan đến việc sao chép vào các ô tạm thời hoặc viết các tập lệnh VBA hoặc bất cứ thứ gì tương tự. Nói cách khác, tôi đang tìm cách chỉ chọn hai ô và bấm vào một số mục menu hoặc nhấn một số tổ hợp phím sẽ hoán đổi nội dung của chúng. Chắc chắn, phải có một cách để làm điều này?

Từ: http://www.extendoffice.com/document/excel/860-excel-swap-contents-of-two-cells.html

Đôi khi, có hai ô liền kề cần được hoán đổi. Chúng ta có thể tự làm điều đó một cách dễ dàng. Nhìn vào ảnh chụp màn hình sau, tôi muốn hoán đổi ô A4 và B4, vui lòng thực hiện như sau:

1. Chọn ô bạn muốn trao đổi. Trong ví dụ này, chọn ô A4.

2. Nhấn phím Shift và đặt con trỏ ở viền bên phải.

3. Sau đó kéo con trỏ đến viền bên phải của ô B4.

4. Khi có màn hình hiển thị, hãy thả chuột.

5. Và hai nội dung tế bào đã được hoán đổi.

Với phương pháp này, chúng ta cũng có thể hoán đổi hai hàng hoặc cột liền kề.

Đối với trường hợp cụ thể của phạm vi hình chữ nhật cùng kích thước liền kề , bạn có thể sử dụng phương pháp được mô tả trong câu trả lời này cho một câu hỏi tương tự .

1. Chọn phạm vi bên phải hoặc dưới cùng
2. Nhấn Ctrl+X
3. Chọn phạm vi liền kề (nghĩa là trực tiếp ở trên hoặc bên trái)
4. Nhấn Ctrl+ +( +thường nằm phía trên =phím để phím này dịch thành Ctrl+ Shift+ =)

Lưu ý bạn có thể sử dụng cùng một quy trình để hoán đổi toàn bộ các hàng hoặc cột liền kề.

Nói một cách dễ dàng, ý tôi là một phím tắt hoặc mục menu, không liên quan đến việc sao chép vào các ô tạm thời hoặc viết các tập lệnh VBA hoặc bất cứ thứ gì tương tự. Tôi đang tìm cách chỉ chọn hai ô và bấm vào một số mục menu hoặc nhấn một số tổ hợp phím sẽ hoán đổi nội dung của chúng.

Tại sao áp đặt hạn chế này? Tạo một macro làm cho tầm thường này. Theo tôi biết, nó không thể được thực hiện bằng bất kỳ cách nào khác. Bạn có thể gán macro cho một nút hoặc phím nóng.

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     

Không. Không có cách nào để trao đổi nội dung của hai ô trong Excel, mà không cần viết macro của riêng bạn để thực hiện.

EDIT: Có vẻ như bây giờ có thể là một cách dễ dàng để trao đổi nội dung ô trong các phiên bản Excel gần đây hơn, vì vậy câu trả lời này có lẽ đã lỗi thời.

Chọn bộ ô đầu tiên được hoán đổi và nhấn ctrl+ x:

Chọn các ô BESIDE những ô bạn muốn trao đổi và nhấn ctrl+ +.

Bạn có thể dán tối đa 25 mục vào bảng tạm, để chúng dễ dàng trao đổi bằng cách sử dụng tab ctr + hoặc cmd + tab mac

• Chọn ô dưới cùng mà bạn muốn trao đổi
• Nhấn Ctrl+ Xvà đi đến ô bạn muốn trao đổi với
• Nhấn Ctrl+ Shift+=

Việc hoán đổi sẽ được thực hiện

Tôi đọc bài đăng này nhưng thực sự cần một macro để hoán đổi phạm vi đầy đủ. Ngoài ra, tôi cần phải trao đổi màu sắc. Đã sửa đổi macro được đăng ban đầu một chút, điều này có thể hữu ích cho ai đó.

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