Tukar konten sel di Excel?

Apakah ada cara mudah untuk menukar konten dua sel di Microsoft Excel?

Maksud saya, cara pintas keyboard atau item menu, tanpa melibatkan penyalinan ke sel sementara atau menulis skrip VBA atau semacamnya. Dengan kata lain, saya sedang mencari cara untuk hanya memilih dua sel dan mengklik beberapa item menu atau tekan beberapa kombinasi tombol yang akan menukar isinya. Tentunya, harus ada cara untuk melakukan ini?

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

Terkadang, ada dua sel yang berdampingan yang perlu ditukar. Kita dapat melakukannya secara manual dengan mudah. Lihatlah screenshot berikut, saya ingin menukar sel A4 dan B4, silakan lakukan sebagai berikut:

1. Pilih sel yang ingin Anda tukarkan. Dalam contoh ini, pilih sel A4.

2. Tekan tombol Shift , dan letakkan kursor di perbatasan kanan.

3. Lalu seret kursor ke perbatasan kanan sel B4.

4. Saat ada tampilan "工", lepaskan mouse.

5. Dan dua isi sel telah ditukar.

Dengan metode ini, kita juga dapat menukar dua baris atau kolom yang berdampingan.

Untuk kasus spesifik dari kisaran persegi panjang berukuran sama yang berdekatan , Anda dapat menggunakan metode yang dijelaskan dalam jawaban ini untuk pertanyaan serupa .

1. Pilih rentang kanan atau bawah
2. Tekan Ctrl+X
3. Pilih rentang yang berdekatan (yaitu, langsung di atas atau ke kiri)
4. Tekan Ctrl+ +( +biasanya di atas =tombol jadi ini diterjemahkan ke Ctrl+ Shift+ =)

Catatan Anda dapat menggunakan prosedur yang sama untuk menukar seluruh baris atau kolom yang berdekatan.

Maksud saya, cara pintas keyboard atau item menu, tanpa melibatkan penyalinan ke sel sementara atau menulis skrip VBA atau semacamnya. Saya mencari cara untuk hanya memilih dua sel dan mengklik beberapa item menu atau tekan beberapa kombinasi tombol yang akan menukar isinya.

Mengapa memaksakan pembatasan ini? Membuat makro membuat ini sepele. Sejauh yang saya tahu, itu tidak bisa dilakukan dengan cara lain. Anda dapat menetapkan makro ke tombol atau hotkey.

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     

Tidak. Tidak ada cara untuk menukar konten dua sel di Excel, tanpa menulis makro Anda sendiri untuk melakukannya.

SUNTING: Sepertinya sekarang ada cara mudah untuk menukar konten sel di versi Excel yang lebih baru, jadi jawaban ini mungkin sudah usang.

Pilih set sel pertama yang akan ditukar dan tekan ctrl+ x:

Pilih sel di samping sel yang ingin Anda tukarkan dan tekan ctrl+ +.

Anda dapat menempel hingga 25 item ke clipboard, sehingga mudah ditukar menggunakan ctr + tab atau cmd + tab mac

• Pilih sel bawah yang ingin Anda tukarkan
• Tekan Ctrl+ Xdan buka sel yang ingin Anda tukarkan
• Tekan Ctrl+ Shift+=

Swap akan dieksekusi

Saya membaca posting ini tetapi sebenarnya membutuhkan makro untuk menukar rentang penuh. Selain itu, saya perlu menukar warna. Mengubah makro yang awalnya diposting sedikit, ini mungkin berguna bagi seseorang.

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