Cara memindahkan setiap baris ke kolom di Excel
Pernahkah Anda mencoba memindahkan setiap data baris lainnya ke kolom di Excel, seperti memindahkan setiap baris ganjil ke satu kolom, dan setiap baris genap ke kolom lain, yang ditunjukkan seperti gambar di bawah ini. Di sini saya menemukan beberapa trik yang dapat menangani masalah ini.
Pindahkan setiap baris ke kolom dengan rumus
Pindahkan setiap baris ke kolom dengan VBA
Pindahkan setiap baris lainnya ke kolom dengan Kutools for Excel
Pindahkan setiap baris ke kolom dengan rumus
Bagi sebagian besar pengguna Excel, menggunakan rumus untuk menyelesaikan masalah di Excel adalah cara termudah.
1. Pilih sel di samping data Anda, dan ketikkan rumus ini = IF (ISEVEN (ROW (B2)), B2, "") (B2 menunjukkan data yang ingin Anda masuki), dan tekan Enter kunci lalu seret pengisian otomatis untuk mengisi kisaran yang Anda inginkan menggunakan rumus ini. Sekarang setiap data baris kedua telah didapat di kolom ini.
2. Kemudian pilih sel lain di sebelah kolom di atas, dan ketikkan rumus ini = IF (ISODD (ROW (B3)), B3, "") (B3 adalah data yang ingin Anda masuki) ke dalamnya, dan tekan Enter kunci lalu seret pengisian otomatis untuk mengisi kisaran yang Anda inginkan menggunakan rumus ini. Sekarang setiap data baris ketiga telah didapat di kolom ini.
Pindahkan setiap baris ke kolom dengan VBA
VBA ikuti juga dapat memindahkan setiap baris ke kolom.
1. tekan F11 + Alt tombol bersama pada keyboard untuk membuka MMicrosoft Visual Basic for Applications jendela.
2. Lalu klik Menyisipkan > Modul untuk memasukkan jendela modul baru. Dan kemudian salin kode VBA berikut ke jendela.
VBA: Pindahkan setiap baris ke kolom.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. klik Run tombol atau F5 pada keyboard, dan sebuah dialog muncul bagi Anda untuk memilih rentang untuk dipindahkan. Lihat tangkapan layar:
4. Lalu klik OK untuk menampilkan dialog lain guna memilih sel untuk menampilkan hasil. Lihat tangkapan layar:
5. klik OK, dan Anda bisa melihat hasilnya seperti di bawah ini:
Pindahkan setiap baris lainnya ke kolom dengan Kutools for Excel
Selain rumus dan VBA, jika sudah terinstal Kutools for Excel, Anda bisa menggunakannya Transformasi Rentang fitur untuk memindahkan setiap baris ke kolom dengan cepat.
Kutools for Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang
1. Pilih rentang yang ingin Anda pindahkan setiap baris lainnya, dan klik Kutools > Konverter Rentang > Transformasi Rentang. Lihat tangkapan layar:
2. Dalam Transformasi Rentang dialog, periksa Kolom tunggal untuk rentang in Jenis Transformasi bagian, dan periksa Nilai tetap lalu pilih atau enter 2 dalam daftar di Baris per rekor bagian. Lihat tangkapan layar:
3. klik Ok untuk membuka dialog untuk memilih satu sel untuk mengeluarkan hasilnya, lihat tangkapan layar:
4. Lalu klik OK. Anda bisa melihat hasilnya seperti di bawah ini:
Untuk informasi lebih lanjut tentang Transform Range.
Artikel Relatif:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
