Bagaimana cara memasukkan baris secara otomatis berdasarkan nilai sel di Excel?
Sisipkan baris di bawah berdasarkan nilai sel dengan VBA
Sisipkan baris di atas berdasarkan nilai sel dengan Kutools for Excel
Sisipkan baris di bawah berdasarkan nilai sel dengan VBA
Untuk memasukkan baris berdasarkan nilai sel dengan menjalankan VBA, lakukan langkah-langkah di bawah ini:
1. tekan Alt + F11 kunci secara bersamaan, dan a Microsoft Visual Basic untuk Aplikasi jendela muncul.
2. klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke popping Modul jendela.
VBA: Sisipkan baris di bawah ini berdasarkan nilai sel.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. klik F5 kunci atau Run tombol, dialog muncul, dan pilih kolom berisi nol. Lihat tangkapan layar:
4. klik OK. Kemudian baris kosong akan disisipkan di bawah nilai nol.
jenis:
1. Jika Anda ingin menyisipkan baris berdasarkan nilai lain, Anda dapat mengubahnya 0 ke nilai apa pun yang Anda inginkan di VBA: Jika Rng.Value = "0" Lalu.
2. Jika Anda ingin memasukkan baris di atas nol atau nilai lain, Anda dapat menggunakan kode vba di bawah ini.
VBA: Masukkan baris di atas nilai nol:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Sisipkan baris di atas berdasarkan nilai sel dengan Kutools for Excel
Jika Anda tidak terbiasa dengan VBA, Anda dapat mencobanya Kutools untuk Excel's Pilih Sel Spesifik utilitas, lalu sisipkan baris di atas.
Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. | ||
Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:锛圲nduh Gratis Kutools untuk Excel Sekarang!)
1. Pilih daftar yang ingin Anda temukan sel spesifiknya, dan klik Kutools > Pilih > Pilih Sel Spesifik. Lihat tangkapan layar:
2. Pada dialog popping, periksa Seluruh baris opsi, lalu pergi untuk memilih sama dari Tipe khusus daftar, lalu masukkan nilai yang ingin Anda temukan di kotak teks kanan. Lihat tangkapan layar:
3. klik Ok, dan dialog muncul untuk mengingatkan Anda jumlah baris yang dipilih, tutup saja.
4. Tempatkan kursor pada satu baris yang dipilih, dan klik kanan untuk memilih Menyisipkan dari menu konteks. Lihat tangkapan layar:
Sekarang baris disisipkan di atas berdasarkan nilai tertentu.
Sisipkan Baris Di Atas Berdasarkan Nilai Sel
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 Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa 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!