Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara memasukkan baris secara otomatis berdasarkan nilai sel di Excel?

doc-sisipkan-baris-berdasarkan-nilai-1
Misalkan Anda memiliki berbagai data, dan Anda ingin otomatis memasukkan baris kosong di atas atau di bawah nilai tertentu di Excel, misalnya, otomatis memasukkan baris di bawah nilai nol seperti gambar di bawah ini. Di Excel, tidak ada cara langsung yang dapat menyelesaikan tugas ini, tetapi saya dapat memperkenalkan kode Makro agar Anda dapat menyisipkan baris secara otomatis berdasarkan nilai tertentu di Excel.
Sisipkan baris di bawah berdasarkan nilai sel dengan VBA

Sisipkan baris di atas berdasarkan nilai sel dengan Kutools for Excel ide bagus3

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:
doc-sisipkan-baris-berdasarkan-nilai-2

4. klik OK. Kemudian baris kosong akan disisipkan di bawah nilai nol.
doc-sisipkan-baris-berdasarkan-nilai-3

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

doc-sisipkan-baris-berdasarkan-nilai-4


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:(Unduh Gratis Kutools untuk Excel Sekarang!)

1. Pilih daftar yang ingin Anda temukan sel spesifiknya, dan klik Kutools > Pilih > Pilih Sel Spesifik. Lihat tangkapan layar:
doc memasukkan baris berdasarkan nilai 9

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:
doc memasukkan baris berdasarkan nilai 6

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:
doc memasukkan baris berdasarkan nilai 7

Sekarang baris disisipkan di atas berdasarkan nilai tertentu.
doc memasukkan baris berdasarkan nilai 8


Artikel Relatif:


Alat Produktivitas Kantor Terbaik

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

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • 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 tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... 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 ...
  • 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...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (40)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menempelkan konten tertentu di bawah sel di bawah ini. Bagaimana cara melakukannya? Alih-alih baris Kosong, saya ingin memasukkan nilai dalam beberapa kolom.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya ingin memasukkan beberapa baris berdasarkan nilai Contoh: Saya ingin memasukkan 1 baris kosong di bawah sel dengan nilai 2, 2 baris di bawah sel dengan nilai 3, 3 baris di bawah sel dengan nilai 4 dan seterusnya Bisakah Anda tolong bantu saya dengan ini?
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda pernah mendapatkan jawaban untuk ini? Saya mencoba melakukan hal yang sama.

Miliki daftar karyawan dengan # minggu liburan yang mereka dapatkan. Saya ingin memasukkan satu baris untuk setiap minggu. Ini akan menjadi 1, 2 atau 3 baris tergantung pada berapa banyak waktu yang mereka peroleh. #s 1 2 3 sudah ada di spreadsheet saya.
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menyisipkan baris berdasarkan hitungan menggunakan nilai sel di satu spreadsheet dan memasukkan baris di spreadsheet lain.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk pesan Anda. Tetapi bisakah Anda menjelaskan pertanyaan Anda dengan lebih detail? Baris apa yang ingin Anda sisipkan? Kosong? Dan Di mana Anda ingin memasukkan di dalam lembar? Jika Anda bisa, beri saya beberapa tangkapan layar. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Aku mencintaimu. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Itu luar biasa!!. Terima kasih sobat.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menyisipkan lebih dari satu baris?
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mencoba VBA ini

SubBaris Kosong()
'Perbarui oleh20150203
Dim Rng Sebagai Rentang
Redup WorkRng Sebagai Rentang
Redupkan xInsertNum As Long
' Pada Kesalahan Lanjutkan Selanjutnya
xTitleId = "Kutools for Excel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Jika WorkRng Bukan Apa-apa Kemudian Keluar Sub
xInsertNum = Application.InputBox("Jumlah baris kosong yang ingin Anda masukkan ", xTitleId, Type:=1)
Jika xInsertNum = Salah Maka
MsgBox " Jumlah baris kosong yang ingin Anda masukkan ", vbInformation, xTitleId
Keluar dari Sub
End If
Setel WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Salah
Untuk xRowIndex = xLastRow Ke 1 Langkah -1
Atur Rng = WorkRng.Range("A" & xRowIndex)
Jika Rng.Value = "0" Lalu
Rng.Ubah Ukuran(xInsertNum).SeluruhRow.Sisipkan Shift:=xlDown
End If
Next
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
jika Anda ingin menyisipkan baris kosong di bawah, coba ini

SubBaris Kosong()
'Perbarui oleh20150203
Dim Rng Sebagai Rentang
Redup WorkRng Sebagai Rentang
Redupkan xInsertNum As Long
' Pada Kesalahan Lanjutkan Selanjutnya
xTitleId = "Kutools for Excel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Jika WorkRng Bukan Apa-apa Kemudian Keluar Sub
xInsertNum = Application.InputBox("Jumlah baris kosong yang ingin Anda sisipkan", xTitleId, Type:=1)
Jika xInsertNum = Salah Maka
MsgBox " Jumlah baris kosong yang ingin Anda masukkan ", vbInformation, xTitleId
Keluar dari Sub
End If
Setel WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Salah
Untuk xRowIndex = xLastRow Ke 1 Langkah -1
Atur Rng = WorkRng.Range("A" & xRowIndex)
Jika Rng.Value = "0" Lalu
Rng.Offset(1, 0).Ubah ukuran(xInsertNum).SeluruhRow.Sisipkan Shift:=xlDown
End If
Next
Application.ScreenUpdating = Benar
End Sub

Yang di bawah ini adalah untuk menyisipkan baris di atas.
Komentar ini diminimalkan oleh moderator di situs
HI Sunny, makro ini sangat cocok untuk saya; saya hanya perlu mengubah jumlah baris menjadi 30 dan mengubah 0 menjadi teks: "Closing Balance". Tapi sekarang saya ingin menyalin tempel pilihan sel yang tingginya 30 baris ke dalam 30 baris kosong yang baru saja dimasukkan oleh makro ini. Bisakah Anda menyarankan makro baru (atau amandemen untuk makro ini) untuk menyalin dan menempelkan rentang ke setiap 30 baris kosong. Saya telah menamai rentang untuk menyalin dan menempelkan 'templat'.
Komentar ini diminimalkan oleh moderator di situs
Saya membutuhkan bantuan besar dalam hal ini. Saya memiliki 2 kolom, pada tanggal 1 saya memiliki waktu data saya 01/01/2016 05:00:00, hari/bulan/tahun jam/menit/detik dan di kolom ke-2 masing-masing data terkait dengan waktu.

Masalah saya adalah saya ingin menambahkan waktu data antar baris karena saya memiliki jeda hari. Baris pertama adalah 1/01/01 dan baris ke-2016 memiliki, misalnya, 2/10/01, jadi saya punya 2016 hari. dan kode itu tidak berfungsi untuk saya.

Berharap untuk mendapatkan umpan balik, tolong! terima kasih
Komentar ini diminimalkan oleh moderator di situs
Anda dapat mencoba VBA ini

Sub SisipanNilaiAntara()
'Perbarui 20130825
Redup WorkRng Sebagai Rentang
Dim Rng Sebagai Rentang
Redupkan Arr Sebagai Varian
Dim dic Sebagai Varian
Setel dic = CreateObject("Scripting.Dictionary")
'Pada Kesalahan Lanjutkan Selanjutnya
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Nilai
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Nilai
interval = angka2 - angka1
ReDim outArr(1 Ke interval + 1, 1 Ke 2)
Untuk Setiap Rng Dalam PekerjaanRng
dic(Rng.Nilai) = Rng.Offset(0, 1).Nilai
Next
Untuk i = 0 Ke interval
outArr(i + 1, 1) = i + num1
Jika dic.Ada(i + num1) Maka
outArr(i + 1, 2) = dic(i + num1)
Lain
outArr(i + 1, 2) = ""
End If
Next
Dengan WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Nilai = outArr
.Pilih
Berakhir dengan
End Sub


Atau jika Anda memiliki Kutools for Excel, Anda dapat mencoba fungsi ini:
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak, saya telah mencoba keduanya, yang pertama karena saya memiliki sekitar 1 baris data, saya melakukannya untuk semua 500 baris dan tidak melakukan apa-apa, saya pikir mungkin ini memiliki batasan pada baris untuk digunakan, dan ketika saya memilih hanya 500 baris pertama, misalnya, itu tidak membuat baris yang hilang, menggantikan baris untuk data yang hilang.

Masalah lain yang saya miliki adalah data waktu saya juga memiliki Hari/Bulan/Tahun HH: MM: SS
Komentar ini diminimalkan oleh moderator di situs
Dari 2 ke 3, itu menciptakan data yang hilang yang saya inginkan ok, tetapi nilai 03/01/2016 dihilangkan dan ada beberapa data waktu yang dihilangkan sesuatu yang tidak saya inginkan juga
Komentar ini diminimalkan oleh moderator di situs
Maaf kode VBA tidak membantu Anda, saya tidak dapat menemukan metode yang dapat bekerja untuk format tanggal dan waktu. Jika Anda akhirnya menemukan solusinya, bisakah Anda memberi tahu saya? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Halo lagi Sunny, saya berhasil mengedit kode ini (saya mengubah baris num1 menjadi A2 dan With WorkRng.Range("A2:A100000"). Resize(UBound(outArr, 1), UBound(outArr, 2) ):


Sub SisipanNilaiAntara()
'Perbarui 20130825
Redup WorkRng Sebagai Rentang
Dim Rng Sebagai Rentang
Redupkan Arr Sebagai Varian
Dim dic Sebagai Varian
Setel dic = CreateObject("Scripting.Dictionary")
'Pada Kesalahan Lanjutkan Selanjutnya
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A2").Nilai
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Nilai
interval = angka2 - angka1
ReDim outArr(1 Ke interval + 1, 1 Ke 2)
Untuk Setiap Rng Dalam PekerjaanRng
dic(Rng.Nilai) = Rng.Offset(0, 1).Nilai
Next
Untuk i = 0 Ke interval
outArr(i + 1, 1) = i + num1
Jika dic.Ada(i + num1) Maka
outArr(i + 1, 2) = dic(i + num1)
Lain
outArr(i + 1, 2) = ""
End If
Next
Dengan WorkRng.Range("A2:A100000").Ubah ukuran(UBound(outArr, 1), UBound(outArr, 2))
.Nilai = outArr
.Pilih
Berakhir dengan
End Sub



Saya tunjukkan grafiknya, itu tidak berfungsi 100% karena tidak membuat waktu dari A1 ke A2
Komentar ini diminimalkan oleh moderator di situs
Ini pertanyaan saya dan ini pertanyaan yang sangat sulit saya kira .. apakah ada kode vba yang menambahkan baris baru di bawah kolom yang difilter dan menyalin hanya tiga sel pertama ke dalam baris baru yang ditambahkan dan terus melakukannya sampai pengguna berhenti menekan "masuk" dan hapus filter sel yang difilter?
Komentar ini diminimalkan oleh moderator di situs
Pertanyaan Anda agak sulit dan kompleks, Anda dapat menempatkan pertanyaan di forum kami, mungkin seseorang dapat menjawab Anda. https://www.extendoffice.com/forum.html
Komentar ini diminimalkan oleh moderator di situs
hai saya hanya ingin bertanya bagaimana cara menambahkan baris jika kodisi menambahkan baris harus dilakukan ketika sel sudah memiliki data (Ini untuk buku kerja excel dengan banyak lembar :) Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
mungkin kode vba ini bisa membantu anda. Ini akan menambah baris jika baris di atas tidak kosong

Sub bantuan()
Hitungan redup Selamanya
Untuk count = ActiveSheet.UsedRange.Rows.count Ke 1 Langkah -1
If Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
Hitungan berikutnya
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai saya mencoba menggunakan kode ini untuk memasukkan baris ketika 4 digit pertama dalam sel berubah (jika itu mungkin)

sebagai contoh,
2222A
2222B
2223K


garis akan dimasukkan setelah 2222B karena angka ke-3 adalah 3 dan bukan 2

Terima kasih teman-teman !!
Komentar ini diminimalkan oleh moderator di situs
Hai, Terima kasih untuk ini, namun saya memiliki skenario lain di mana saya perlu memasukkan sel cingle di bawah nilai yang bukan nol. Hargai saran apa pun.
Komentar ini diminimalkan oleh moderator di situs
Hai Gina, saya baru saja menemukan kode untuk menyisipkan baris kosong di atas sel yang tidak kosong, mungkin seseorang dapat menyesuaikannya dengan kebutuhan Anda.

Sub Sisipan_Baris()
Redupkan LR Selamanya, r Selamanya

Application.ScreenUpdating = Salah
LR = Range("A" & Baris.Jumlah).End(xlUp).Baris
Untuk r = LR Ke 1 Langkah -1
Jika Len(Rentang("A" & r).Nilai) > 0 Maka
Baris(r). Sisipkan
End If
R berikutnya
Application.ScreenUpdating = Benar
End Sub

berasal dari https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
Komentar ini diminimalkan oleh moderator di situs
Halo, ini sangat membantu. Bagaimana jika saya ingin menambahkan dua baris di bawah dan saya ingin nilai lebih. Misalnya, saya ingin menambahkan dua baris setelah nilai 26/04/2019 dan kemudian dua baris setelah 03/04/2019, dan daftarnya terus berlanjut. Bagaimana cara saya terus menambahkan ke vba? Maaf saya masih pemula. Terima kasih sebelumnya.
Komentar ini diminimalkan oleh moderator di situs
Hai, Safa, mungkin Anda dapat mencoba utilitas menyisipkan baris/kolom kosong Kutools.
Komentar ini diminimalkan oleh moderator di situs
SubBaris Kosong()
'Perbarui oleh20150203
Dim Rng Sebagai Rentang
Redup WorkRng Sebagai Rentang
On Error Resume Next
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Setel WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Salah
Untuk xRowIndex = xLastRow Ke 1 Langkah - 1
Atur Rng = WorkRng.Range("A" & xRowIndex)
Jika Rng.Value = "0" Lalu
Rng.EntireRow.Sisipkan Shift: = xlDown
End If
Next
Application.ScreenUpdating = Benar
End Sub


Saya membutuhkan ini untuk bekerja setiap kali saya memasukkan sesuatu ke dalam sel, dan juga dengan lebih banyak variabel. Maksud saya adalah jika saya memasukkan 2 ke dalam sel, saya membutuhkannya untuk memasukkan 2 baris dan bukan hanya 1.
Komentar ini diminimalkan oleh moderator di situs
Saya membutuhkan makro untuk menambahkan baris berdasarkan kolom kuantitas di mana jika qty lebih besar dari 1, itu memasukkan jumlah baris -1. Jika jumlahnya 5, ia menyisipkan 4 baris di bawahnya dan mengisi data dan mengubah qty yang dipanggil dari 5 menjadi 1 setiap baris. Lewati semua qty 1.
Komentar ini diminimalkan oleh moderator di situs
Beri tahu saya kode di mana saya ingin menambahkan sejumlah baris tertentu berdasarkan nilai sel. misalnya, jika sel berisi digit 18, secara otomatis 18 baris harus ditambahkan di tempat yang saya inginkan dan sisa tabel/sel harus bergeser ke bawah.
Komentar ini diminimalkan oleh moderator di situs
Banyak terima kasih untuk ini, benar-benar penghemat waktu yang luar biasa. Apakah mungkin untuk menambahkan beberapa kode yang memungkinkan saya untuk menyisipkan beberapa teks di baris baru. Misalnya saya memasukkan baris baru berdasarkan nilai target 'x', lalu saya ingin menambahkan nilai teks 'y' di sel di bawah nilai target 'x'. Apakah ini mungkin?
Komentar ini diminimalkan oleh moderator di situs
Halo. Makro berfungsi untuk saya tetapi apakah ada cara untuk selalu mengatur rentang/parameter ke kolom J tanpa kotak input muncul sama sekali? Saya ingin melewatkan langkah kotak input yang akan datang. Juga, saya telah memastikan bahwa sebelum makro ini baris terakhir dari makro saya sebelumnya adalah Range("J:J").Select untuk memastikan seluruh kolom J telah dipilih.
Inilah yang saya gunakan sejauh ini.

Dim Rng Sebagai Rentang
Redup WorkRng Sebagai Rentang
On Error Resume Next
xTitleId = "Klik OK untuk Melanjutkan"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Setel WorkRng = WorkRng.Columns(1)
KirimKeys "~"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = Salah
Untuk xRowIndex = xLastRow Ke 1 Langkah -1
Atur Rng = WorkRng.Range("A" & xRowIndex)
Jika Rng.Value = "Line RUPS Baru" Maka
Rng.EntireRow.Sisipkan Shift:=xlDown
End If
Next


Saya telah mencoba bereksperimen menggunakan perintah SendKeys "~" di antara beberapa langkah untuk mencoba dan membuatnya menekan enter secara otomatis ketika kotak input muncul tetapi itu juga tidak berhasil. Saya tidak yakin di mana tepatnya menggunakan perintah SendKeys di makro atau apakah itu akan berfungsi dengan kotak input!
Komentar ini diminimalkan oleh moderator di situs
tolong bantu saya punya data. saya punya data waktu satu bulan, di mana saya harus memasukkan baris kosong sesuai dengan waktu melarikan diri
Komentar ini diminimalkan oleh moderator di situs
Hai, hr.babu08, maaf balasannya terlambat. Saya kira Anda ingin menyisipkan baris kosong atau membuat tanda untuk data urutan yang hilang, jika demikian, Anda dapat mencoba fitur Temukan Nomor Urutan yang Hilang dari Kutools for Excel. Berikut adalah tutorial tentang fitur tersebut: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf Anda ingin metode lain untuk menyisipkan baris kosong untuk urutan yang hilang, silakan kunjungi:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
Komentar ini diminimalkan oleh moderator di situs
Hai,
Bisakah marco ini digunakan/diubah untuk sel berwarna?
Saya perlu memasukkan setidaknya 10 baris di atas ujung setiap seri yang diwarnai.
Thx!
Komentar ini diminimalkan oleh moderator di situs
Saya perlu menambahkan baris tertentu dengan nilai di dalamnya untuk konten sel tertentu, tetapi tidak yakin bagaimana melakukannya tanpa harus melakukannya secara manual untuk lebih dari 3800+ baris

Contoh: A1 = Node1
Saya harus memasukkan baris dan memasukkan nilai Pemindai
Masukkan baris lain dan masukkan nilai Printer
baris lain dengan nilai CD.
Dll
Komentar ini diminimalkan oleh moderator di situs
Hai, Chris, berikut adalah VBA yang dapat membantu Anda menyisipkan tiga baris (Scanner, Printer, CD) secara otomatis ketika nilainya sama dengan Node1.
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a 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 = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

Tolong beritahu saya jika bekerja untuk Anda.
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan