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

Bagaimana cara memasukkan jumlah baris tertentu pada interval tetap di Excel?

Di lembar kerja Excel, Anda bisa menyisipkan baris kosong di antara baris yang sudah ada dengan menggunakan fungsi Sisipkan. Namun, jika Anda memiliki banyak data, dan, Anda perlu menyisipkan dua baris kosong setelah setiap baris ketiga atau ke-n, bagaimana Anda dapat menyelesaikan pekerjaan ini dengan cepat dan nyaman?


Masukkan jumlah baris kosong tertentu ke dalam rentang data pada interval tetap dengan kode VBA

Kode VBA berikut dapat membantu Anda memasukkan jumlah baris tertentu setelah setiap baris ke-n dalam data yang ada. Harap lakukan sebagai berikut:

1. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Masukkan jumlah baris tertentu ke dalam data pada interval tetap

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Setelah menempelkan kode ini, harap tekan F5 kunci untuk menjalankan kode ini, kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda masukkan baris kosong, lihat tangkapan layar:

4. Klik OK tombol, kotak prompt lain akan muncul, masukkan jumlah interval baris, lihat tangkapan layar:

5. Lanjutkan mengklik OK tombol, di kotak prompt yang muncul berikut, masukkan jumlah baris kosong yang ingin Anda masukkan, lihat tangkapan layar:

6. Lalu klik OK, dan baris kosong telah dimasukkan ke dalam data yang ada secara berkala, lihat tangkapan layar:


Masukkan jumlah baris kosong tertentu ke dalam rentang data berdasarkan nilai sel dengan kode VBA

Terkadang, Anda mungkin perlu memasukkan baris kosong berdasarkan daftar nilai sel, dalam hal ini, kode VBA di bawah ini dapat membantu Anda, lakukan seperti ini:

1. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Masukkan sejumlah baris kosong berdasarkan daftar nomor:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Setelah menempelkan kode ini, tekan F5 kunci untuk menjalankan kode ini, di kotak dialog yang muncul, pilih daftar nomor yang ingin Anda sisipkan baris kosong berdasarkan, lihat tangkapan layar:

4. Lalu klik OK, dan Anda akan mendapatkan hasil yang Anda butuhkan seperti gambar berikut yang ditampilkan:


Masukkan jumlah baris kosong tertentu ke dalam rentang data pada interval tetap dengan fitur praktis

Jika Anda tidak terbiasa dengan kode VBA di atas, Kutools untuk Excel juga dapat membantu Anda Sisipkan Baris & Kolom Kosong Fitur dapat memasukkan jumlah baris atau kolom tertentu ke dalam data yang ada pada interval tetap dengan cepat dan mudah.

Catatan:Untuk menerapkan ini Sisipkan Baris & Kolom Kosong , pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Pilih rentang data yang ingin Anda sisipkan baris kosong pada interval.

2. Klik Kutools > Menyisipkan > Sisipkan Baris & Kolom Kosong, lihat tangkapan layar:

3. di Sisipkan Baris & Kolom Kosong kotak dialog, pilih Baris kosong opsi dari Masukkan tipe, lalu tentukan jumlah baris interval dan kosong yang ingin Anda gunakan seperti gambar berikut yang ditampilkan:

4. Lalu klik OK tombol, dan baris kosong telah dimasukkan ke dalam rentang yang dipilih pada interval tertentu seperti gambar berikut yang ditampilkan:

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Salin dan sisipkan baris beberapa kali berdasarkan nomor tertentu dengan kode VBA

Misalkan, Anda memiliki rentang tada, dan sekarang, Anda ingin menyalin setiap baris dan menempelkannya beberapa kali ke baris berikutnya berdasarkan daftar nomor seperti yang ditunjukkan tangkapan layar di bawah ini. Bagaimana mengatasi tugas ini di lembar kerja Excel?

Untuk menangani pekerjaan ini, saya akan memperkenalkan kode yang berguna untuk Anda, lakukan dengan langkah-langkah berikut:

1. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

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

Kode VBA: Salin dan sisipkan baris beberapa kali berdasarkan nomor tertentu:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Setelah menempelkan kode ini, tekan F5 kunci untuk menjalankan kode ini, di kotak dialog yang muncul, pilih daftar nomor yang ingin Anda salin dan masukkan baris data berdasarkan, lihat tangkapan layar:

4. Lalu klik OK tombol, dan jumlah baris tertentu telah disalin dan tempel di bawah setiap baris asli, lihat tangkapan layar:


Salin dan sisipkan baris beberapa kali berdasarkan nomor tertentu dengan fitur luar biasa

Jika Anda memiliki Kutools untuk Excel, Dengan yang Duplikat Baris / Kolom berdasarkan nilai sel Fitur, Anda dapat memasukkan baris atau kolom berdasarkan daftar nomor dengan cepat dan mudah.

Catatan:Untuk menerapkan ini Duplikat Baris / Kolom berdasarkan nilai sel, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Klik Kutools > Menyisipkan > Duplikat Baris / Kolom berdasarkan nilai sel, lihat tangkapan layar:

2. di Salin dan sisipkan baris & kolom kotak dialog, pilih Salin dan sisipkan baris pilihan dalam Tipe bagian, lalu pilih rentang data yang ingin Anda duplikat, lalu tentukan daftar nilai yang ingin Anda salin berdasarkan baris, lihat tangkapan layar:

4. Lalu klik Ok or Apply tombol, Anda akan mendapatkan hasil berikut sesuai kebutuhan:

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!

Artikel yang lebih relatif:

  • Salin Dan Sisipkan Baris Beberapa Kali Atau Gandakan Baris X Kali
  • Dalam pekerjaan Anda sehari-hari, pernahkah Anda mencoba menyalin satu baris atau setiap baris dan kemudian menyisipkan beberapa kali di bawah baris data saat ini di lembar kerja? Misalnya, saya memiliki berbagai sel, sekarang, saya ingin menyalin setiap baris dan menempelkannya 3 kali ke baris berikutnya seperti gambar berikut yang ditampilkan. Bagaimana Anda bisa menangani pekerjaan ini di Excel?
  • Sisipkan Baris Kosong Saat Nilai Berubah Di Excel
  • Misalkan Anda memiliki berbagai data, dan sekarang Anda ingin menyisipkan baris kosong di antara data ketika nilai berubah, sehingga Anda dapat memisahkan nilai yang sama berurutan dalam satu kolom seperti yang ditunjukkan tangkapan layar berikut. Pada artikel ini, saya akan berbicara tentang beberapa trik bagi Anda untuk mengatasi masalah ini.
  • Salin Baris Dari Beberapa Lembar Kerja Berdasarkan Kriteria Ke Lembar Baru
  • Misalkan, Anda memiliki buku kerja dengan tiga lembar kerja yang memiliki format yang sama seperti gambar di bawah ini. Sekarang, Anda ingin menyalin semua baris dari lembar kerja ini yang kolom C berisi teks "Selesai" ke dalam lembar kerja baru. Bagaimana Anda bisa mengatasi masalah ini dengan cepat dan mudah tanpa menyalin dan menempelkannya satu per satu secara manual?

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 (37)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menggunakan kode Anda (di bawah) dapatkah Anda memberi tahu saya bagaimana cara mengisi baris-baris itu dengan teks khusus ke dalamnya. Saya telah menggunakan kode Anda untuk memasukkan tiga baris itu berfungsi dengan baik tetapi sekarang saya harus memasukkan teks Row1 = Date Row2.= Lokasi Row3 = Nomor Telepon Terima kasih sebelumnya... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount As Integer Dim xNum1 As Integer Dim xNum2 As Integer Dim WorkRng As Range Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng(" Application.InputBox , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Masukkan interval baris. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Berapa banyak baris ke masukkan pada setiap interval? ", xTitleId, 1, Ketik:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Set xWs = WorkRng.Parent For i = 1 To Int(xRowsCount / xInterval) xWs.Range(xWs .Sel(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Pilih Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Sub Akhir Berikutnya"
Komentar ini diminimalkan oleh moderator di situs
terima kasih banyak!!!!! ini luar biasa
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!!
Komentar ini diminimalkan oleh moderator di situs
Hi


Saya menggunakan kode interval vba berfungsi..Tetapi ketika saya menggunakan di atas 100000 baris tidak berfungsi.. mohon saran apa yang harus saya ubah jika ada.


Sub InsertRowsAtIntervals()
'Perbarui oleh20150707
Dim Rng Sebagai Rentang
Redupkan xInterval Sebagai Integer
Redupkan xRows Sebagai Integer
Redupkan xRowsCount Sebagai Integer
Redupkan xNum1 Sebagai Integer
Redupkan xNum2 Sebagai Integer
Redup WorkRng Sebagai Rentang
Redupkan xWs Sebagai Lembar Kerja
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Masukkan interval baris. ", xTitleId, 1, Ketik:=1)
xRows = Application.InputBox("Berapa banyak baris yang akan disisipkan pada setiap interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xBaris + xInterval
Tetapkan xWs = WorkRng.Parent
Untuk i = 1 Ke Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Pilih
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Fantastis - Anda menyelamatkan saya banyak entri data tanpa berpikir, terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
hai bagaimana saya bisa mendapatkan kode untuk Sisipkan jumlah kolom tertentu ke dalam data pada interval tetap
Komentar ini diminimalkan oleh moderator di situs
Halo, PK,
Untuk menyisipkan kolom kosong ke dalam data yang ada pada interval tertentu, kode VBA di bawah ini dapat membantu Anda! Silakan coba.

Sub InsertColumnsAtIntervals()
Dim Rng Sebagai Rentang
Redupkan xInterval Sebagai Integer
Redupkan xCs Sebagai Integer
Redupkan xCCount Sebagai Integer
Redupkan xNum1 Sebagai Integer
Redupkan xNum2 Sebagai Integer
Redup WorkRng Sebagai Rentang
Redupkan xWs Sebagai Lembar Kerja
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Masukkan interval kolom. ", xTitleId, 1, Ketik:=1)
xCs = Application.InputBox("Berapa banyak kolom yang akan disisipkan pada setiap interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
Tetapkan xWs = WorkRng.Parent
Untuk I = 1 Ke Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Pilih
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menambahkan baris dalam data excel sesuai nomor yang disebutkan di sel terakhir, katakan dalam data excel jika sel terakhir menunjukkan angka 4, bagaimana cara dd 4 baris secara otomatis. di baris lain nomor adalah 72, dll
Komentar ini diminimalkan oleh moderator di situs
Hai, SPGupta,
Untuk menyisipkan baris kosong berdasarkan daftar nomor tertentu, harap terapkan kode VBA di bawah ini.
Silakan dicoba, semoga bisa membantu Anda!

Sub Sisipan()
'Perbarui olehExtendoffice
Redupkan xRg Sebagai Rentang
Redupkan xAlamat Sebagai String
Redupkan I, xNum, xLastRow, xFstRow, xCol, xHitung Selama
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pilih kolom angka tertentu yang akan digunakan(satu kolom):", "KuTools For Excel", xAddress, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Application.ScreenUpdating = Salah
xLastRow = xRg(1).End(xlDown).Baris
xFstRow = xRg.Baris
xCol = xRg.Kolom
xHitung = xRg.Hitung
Tetapkan xRg = xRg(1)
Untuk I = xLastRow Ke xFstRow Langkah -1
xNum = Sel(I, xCol)
Jika IsNumeric(xNum) Dan xNum > 0 Maka
Baris(I + 1).Ubah ukuran(xNum).Sisipkan
xJumlah = xJumlah + xNum
End If
Next
xRg.Ubah ukuran(xCount, 1).Pilih
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, bisakah Anda membantu saya? Bagaimana saya bisa mengubah kode ini untuk mengiklankan satu baris lebih sedikit daripada jumlah di sel? Misalnya, jika angka dalam sel adalah 4, program menambahkan 3 baris. Jika angka dalam sel adalah 1, baris tidak ditambahkan
Komentar ini diminimalkan oleh moderator di situs
Hai, Nina,
Untuk menyelesaikan tugas Anda, silakan gunakan kode di bawah ini:

Sub Sisipan()
'Perbarui olehExtendoffice
Redupkan xRg Sebagai Rentang
Redupkan xAlamat Sebagai String
Redupkan I, xNum, xLastRow, xFstRow, xCol, xHitung Selama
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pilih kolom angka tertentu yang akan digunakan(satu kolom):", "KuTools For Excel", xAddress, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Application.ScreenUpdating = Salah
xLastRow = xRg(1).End(xlDown).Baris
xFstRow = xRg.Baris
xCol = xRg.Kolom
xHitung = xRg.Hitung
Tetapkan xRg = xRg(1)
Untuk I = xLastRow Ke xFstRow Langkah -1
xNum = Sel(I, xCol)
xJumlah = xJumlah - 1
Jika IsNumeric(xNum) Dan xNum > 0 Maka
Baris(I + 1).Ubah ukuran(xNum).Sisipkan
xJumlah = xJumlah + xNum
End If
Next
xRg.Ubah ukuran(xCount, 1).Pilih
Application.ScreenUpdating = Benar
End Sub


Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan sempurna, terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Ini bagus. Saya hanya ingin tahu ... dan bahasa Inggris saya tidak sempurna jadi saya harap Anda akan mengerti saya :) .....
Apakah mungkin untuk mengisi baris kosong yang ditambahkan dengan nilai dari baris di mana nomor parametrik itu?
Komentar ini diminimalkan oleh moderator di situs
Halo, Vladimir,Apakah maksud Anda menyisipkan baris kosong berdasarkan daftar angka di lembar kerja? Jika demikian, silakan terapkan kode di bawah ini:
Sub Sisipan()
'Perbarui olehExtendoffice
Redupkan xRg Sebagai Rentang
Redupkan xAlamat Sebagai String
Redupkan I, xNum, xLastRow, xFstRow, xCol, xHitung Selama
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pilih daftar angka yang ingin Anda sisipkan baris berdasarkan:", "KuTools For Excel", xAddress, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Application.ScreenUpdating = Salah
xLastRow = xRg(1).End(xlDown).Baris
xFstRow = xRg.Baris
xCol = xRg.Kolom
xHitung = xRg.Hitung
Tetapkan xRg = xRg(1)
Untuk I = xLastRow Ke xFstRow Langkah -1
xNum = Sel(I, xCol)
Jika IsNumeric(xNum) Dan xNum > 0 Maka
Baris(I + 1).Ubah ukuran(xNum).Sisipkan
xJumlah = xJumlah + xNum
End If
Next
xRg.Ubah ukuran(xCount, 1).Pilih
Application.ScreenUpdating = Benar
End Sub Silahkan dicoba, jika ada pertanyaan lain silahkan comment disini.
Komentar ini diminimalkan oleh moderator di situs
Kode ini sangat cocok untuk menyisipkan baris....Sub Insert()
'Perbarui olehExtendoffice
Redupkan xRg Sebagai Rentang
Redupkan xAlamat Sebagai String
Redupkan I, xNum, xLastRow, xFstRow, xCol, xHitung Selama
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pilih kolom angka tertentu yang akan digunakan(satu kolom):", "KuTools For Excel", xAddress, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
Application.ScreenUpdating = Salah
xLastRow = xRg(1).End(xlDown).Baris
xFstRow = xRg.Baris
xCol = xRg.Kolom
xHitung = xRg.Hitung
Tetapkan xRg = xRg(1)
Untuk I = xLastRow Ke xFstRow Langkah -1
xNum = Sel(I, xCol)
xJumlah = xJumlah - 1
Jika IsNumeric(xNum) Dan xNum > 0 Maka
Baris(I + 1).Ubah ukuran(xNum).Sisipkan
xJumlah = xJumlah + xNum
End If
Next
xRg.Ubah ukuran(xCount, 1).Pilih
Application.ScreenUpdating = Benar
End Sub

Tapi apakah mungkin .... menyalin data di sel kosong itu dari baris di mana nomor parametrik itu? Bisakah saya memposting gambar di sini? Mungkin lebih mudah jika saya menunjukkan apa yang saya butuhkan :)
Komentar ini diminimalkan oleh moderator di situs
Hai, Vladimir, Mungkin kode VBA di bawah ini dapat membantu Anda, silakan coba. Sub CopyRow()
'Perbarui olehExtendoffice
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xFNum Sebagai Integer
Redupkan xRN Sebagai Integer
On Error Resume Next
PilihRentang:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pilih daftar nomor", "Kutools for Excel", xTxt, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub

Jika xRg.Columns.Count > 1 Maka
MsgBox "Silahkan pilih satu kolom!"
Ke PilihRentang
End If
Application.ScreenUpdating = Salah
Untuk xFNum = xRg.Hitung Sampai 1 Langkah -1
Tetapkan xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Nilai)
Dengan Baris(xCRg.Row)
.Salinan
.Ubah ukuran(xRN).Sisipkan
Berakhir dengan
Next
Application.ScreenUpdating = Benar
End Sub

Komentar ini diminimalkan oleh moderator di situs
Kami sangat dekat :) Yang saya butuhkan sekarang adalah satu baris kurang dari kode VBA terakhir, daripada nilai angka parametrik. Misalnya: Jika jumlahnya 8 kita perlu menyisipkan dan menyalin 7 baris. Seperti yang Anda buat untuk Nina hanya dengan SALINAN ini
Jadi, jika jumlahnya 8 maka kita harus memiliki total 8 baris yang disisipkan dan disalin, dan dengan kode VBA sebelumnya kita memiliki 9.
Tnx
Komentar ini diminimalkan oleh moderator di situs
Hai, Dalam hal ini, kode berikut dapat membantu Anda, silakan coba: Sub SalinData()
'Perbarui oleh Extendoffice
Redupkan xRow Selamanya
Dim VInSertNum Sebagai Varian
xBaris = 1
Application.ScreenUpdating = Salah
Lakukan Sementara (Sel(xRow, "A") <> "")
VInSertNum = Sel(xRow, "B")
Jika ((VInSertNum > 1) Dan IsNumeric(VInSertNum)) Maka
Rentang(Sel(xRow, "A"), Sel(xRow, "B")).Salin
Rentang(Sel(xRow + 1, "A"), Sel(xRow + VInSertNum - 1, "B")).Pilih
Seleksi.Sisipkan Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xBaris = xBaris + 1
Lingkaran
Application.ScreenUpdating = Salah
End SubNote: Pada kode di atas, huruf A menunjukkan kolom awal rentang data Anda, dan hurufnya B adalah huruf kolom yang Anda inginkan untuk menduplikasi baris berdasarkan. Harap ubah sesuai kebutuhan Anda.
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda memiliki modul yang mengurangi nomor yang disalin satu per satu?
Komentar ini diminimalkan oleh moderator di situs
Tidak. Saya punya yang ini, tapi saya membutuhkannya untuk mengurangi 1?
Sub CopyRow()
'Perbarui olehExtendoffice
Redupkan xRg Sebagai Rentang
Redupkan xCRg Sebagai Rentang
Redupkan xFNum Sebagai Integer
Redupkan xRN Sebagai Integer
On Error Resume Next
PilihRentang:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pilih daftar nomor", "Kutools for Excel", xTxt, , , , , 8)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub

Jika xRg.Columns.Count > 1 Maka
MsgBox "Silahkan pilih satu kolom!"
Ke PilihRentang
End If
Application.ScreenUpdating = Salah
Untuk xFNum = xRg.Hitung Sampai 1 Langkah -1
Tetapkan xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Nilai)
Dengan Baris(xCRg.Row)
.Salinan
.Ubah ukuran(xRN).Sisipkan
Berakhir dengan
Next
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Apa yang saya coba lakukan adalah membuat dan mencetak label di Word dari spreadsheet dengan jumlah banyak?
Komentar ini diminimalkan oleh moderator di situs
Apakah Anda memiliki kesempatan untuk melihat ini?
Komentar ini diminimalkan oleh moderator di situs
Emas memberkatimu
Komentar ini diminimalkan oleh moderator di situs
Mencari kode untuk menghasilkan daftar excel yang digandakan dengan angka dalam sel dan mengurangkan 1 untuk yang asli?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih penulis! Anda pantas mendapatkan pujian terbaik untuk ini! Tapi tolong bisakah Anda membantu saya dengan kode untuk memasukkan nilai konstan ke semua baris kosong yang saya buat dengan kode Anda di atas? Untuk membuat diri saya lebih jelas, saya perlu memasukkan nilai konstan ke semua baris kosong (ini sudah diselesaikan dengan kode Anda di atas) maka saya perlu memasukkan nilai konstan ke semua baris kosong (ini masalah saya). Terima kasih seperti yang saya harapkan tanggapan baik Anda.
Komentar ini diminimalkan oleh moderator di situs
Halo, Apakah maksud Anda mengisi baris kosong dengan nilai tertentu? Jika demikian, mabe artikel berikut dapat membantu Anda:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Silakan coba.
Komentar ini diminimalkan oleh moderator di situs
Bisakah saya mendapatkan kode VBA untuk menghapus baris berdasarkan nilai duplikat di kolom yang dipilih dengan menyimpan semua nilai unik?
Komentar ini diminimalkan oleh moderator di situs
Halo, Roy,Jika Anda ingin menghapus baris berdasarkan nilai duplikat, biasanya, Anda dapat menggunakan Hapus Duplikat fitur di Excel untuk menghapus baris. Tentu saja, jika Anda memerlukan kode VBA, silakan gunakan kode di bawah ini: (Pertama, Anda harus memilih rentang data yang ingin Anda hapus, lalu jalankan kode ini, baris berdasarkan nilai duplikat di kolom pertama pilihan Anda akan dihapus sekaligus.) Sub Hapus_duplikat_baris()
Dim Rng Sebagai Rentang
Atur Rng = Pilihan
Rng.RemoveDuplicates Kolom:=Array(1), Header:=xlYa
End SubSilakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Ini sangat keren!! Terima kasih banyak
Komentar ini diminimalkan oleh moderator di situs
Saya sangat senang, selamatkan saya dari pekerjaan, dan saya tidak tahu apa-apa tentang masalah ini. Sangat penting!
Komentar ini diminimalkan oleh moderator di situs
Halo,
Sama sama. Senang itu membantu. Pertanyaan, jangan ragu untuk menghubungi kami. Semoga harimu menyenangkan.
Hormat kami,
Mandy
Komentar ini diminimalkan oleh moderator di situs
bisakah Anda memberi tahu saya cara memasukkan kolom seperti ini, apa kodenya?
Komentar ini diminimalkan oleh moderator di situs
Halo teman,
Anda dapat menggunakan kode VBA ini:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount As Integer

Dim xNum1 As Integer

Dim xNum2 As Integer

Dim WorkRng As Range

Dim xWs As Worksheet

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Hormat kami,
Mandy
Komentar ini diminimalkan oleh moderator di situs
о ак !
ел, омал олову ак обавить оки о аданному оличеству.
аш акрос е очень омог.
Rated 5 dari 5
Komentar ini diminimalkan oleh moderator di situs
Nama Email Alamat Telepon
0 Nama Email Alamat Telepon
baris alamat 2 Nama Telepon 0
Nama Email Alamat Telepon
0 Nama Email Alamat Telepon
baris alamat 2 0


Bagaimana saya bisa mengedit ini untuk memulai baris baru di setiap nilai kosong atau nilai 0 tanpa memiliki nomor telepon dengan 0 memulai baris baru?
Komentar ini diminimalkan oleh moderator di situs
Halo, Jarrod

Maaf, saya tidak bisa memahami masalah Anda dengan jelas.
Bisakah Anda menjelaskan masalah Anda lebih detail? Atau Anda dapat menyisipkan tangkapan layar atau file di sini.
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
halo, hay algun codigo que me permita copiar los datos, but que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que de asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

terima kasih
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan