Bagaimana cara menyalin dan menempel baris atau kolom dalam urutan terbalik di Excel?

Terkadang, Anda mungkin perlu menyalin dan menempelkan daftar kolom atau baris dalam urutan terbalik secara vertikal atau horizontal seperti gambar di bawah ini. Bagaimana Anda bisa menangani pekerjaan ini dengan cepat dan mudah di Excel?

Salin dan tempel daftar kolom atau baris dalam urutan terbalik dengan rumus

Salin dan tempelkan berbagai kolom atau baris dalam urutan terbalik dengan kode VBA

Salin dan tempel berbagai kolom atau baris dalam urutan terbalik dengan fitur yang luar biasa

Salin dan tempel daftar kolom atau baris dalam urutan terbalik dengan rumus

Salin dan tempel daftar kolom dalam urutan terbalik secara vertikal

Jika Anda ingin membalik daftar sel kolom, Anda dapat menerapkan rumus di bawah ini:

Masukkan atau salin rumus berikut ke dalam sel kosong tempat Anda ingin membalik urutan kolom:

Note: Dalam rumus di atas, A1 adalah sel pertama di kolom, dan A15 adalah sel terakhir di kolom tersebut.

Kemudian, seret gagang isian ke bawah ke sel untuk mengekstrak nilai sel dalam urutan terbalik seperti gambar di bawah ini yang ditunjukkan:

Salin dan tempel daftar baris dalam urutan terbalik secara horizontal

Untuk menyalin dan menempelkan daftar baris dalam urutan terbalik, gunakan rumus berikut:

Masukkan atau salin rumus ini ke dalam sel kosong:

Note: Dalam rumus di atas, A1 adalah sel pertama di baris, dan 1:1 adalah nomor baris tempat data Anda berada. Jika data Anda ada di baris 10, Anda harus mengubahnya menjadi 10:10.

Dan kemudian, seret pegangan isian tepat ke sel yang ingin Anda terapkan rumus ini sampai semua nilai diekstraksi, dan Anda akan mendapatkan semua nilai telah dibalik secara horizontal, lihat tangkapan layar:

Salin dan tempelkan berbagai kolom atau baris dalam urutan terbalik dengan kode VBA

Jika Anda perlu menyalin dan menempelkan berbagai kolom atau baris dalam urutan terbalik, di sini, saya akan memperkenalkan beberapa kode VBA untuk menyelesaikannya dengan cepat dan mudah. Silakan lakukan dengan langkah-langkah berikut:

Salin dan tempel daftar kolom dalam urutan terbalik secara vertikal

1. Pertama, Anda harus menyalin dan menempelkan data Anda ke tempat baru, dan kemudian, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Salin dan tempelkan berbagai sel dalam urutan terbalik secara vertikal

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan memilih rentang data yang ingin Anda balikkan secara vertikal, lihat tangkapan layar:

4. Dan kemudian, klik OK tombol, dan rentang data telah dibalik secara vertikal seperti gambar di bawah ini yang ditunjukkan:

Salin dan tempelkan berbagai sel dalam urutan terbalik secara horizontal

Untuk membalikkan rentang data dalam urutan horizontal, harap terapkan kode VBA di bawah ini:

Kode VBA: Salin dan tempelkan berbagai sel dalam urutan terbalik secara horizontal

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Setelah menjalankan kode ini, Anda akan mendapatkan screenshot berikut sesuai kebutuhan:

Salin dan tempel berbagai kolom atau baris dalam urutan terbalik dengan fitur yang luar biasa

Jika Anda tidak terbiasa dengan rumus dan kode VBA di atas, di sini, saya akan merekomendasikan alat yang mudah-Kutools untuk Excel, Dengan yang Balikkan Kisaran Vertikal dan Balik Kisaran Horizontal fitur, Anda dapat membalikkan rentang sel secara vertikal dan horizontal hanya dengan satu klik.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

Salin dan tempelkan berbagai sel dalam urutan terbalik secara horizontal

1. Pilih rentang sel, lalu klik Kutools > Jarak > Balikkan Kisaran Vertikal > Semua (Hanya nilai balik), lihat tangkapan layar:

2. Dan kemudian, kisaran nilai sel telah dibalik secara vertikal sekaligus, lihat tangkapan layar:

Salin dan tempelkan berbagai sel dalam urutan terbalik secara horizontal

1. Pilih rentang sel, lalu klik Kutools > Jarak > Balik Kisaran Horizontal > Semua (Hanya nilai balik), lihat tangkapan layar:

2. Dan kemudian, semua nilai sel yang dipilih telah segera dibalik secara horizontal, lihat tangkapan layar:

Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!

Artikel salin dan tempel yang lebih relatif:

---

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
• Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
• Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
• Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
• Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
• Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
• Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
• Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli... 

---

Office Tab - menghadirkan antarmuka tab ke Office, dan membuat pekerjaan Anda jauh lebih mudah

• Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
• Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
• Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli...