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

Bagaimana cara mengulang nilai sel x kali di Excel?

Misalnya, Anda memiliki daftar nilai di Kolom A, dan Anda ingin mengulang nilai beberapa kali berdasarkan jumlah di Kolom B, seperti yang ditunjukkan gambar kiri, bagaimana Anda bisa mencapai ini di Excel?

 

Ulangi nilai sel X kali dengan rumus dan kolom pembantu

Untuk mengulang nilai sel X kali, Anda dapat memasukkan beberapa kolom pembantu dan kemudian menerapkan beberapa rumus sederhana, lakukan dengan langkah-langkah berikut:

1. Masukkan kolom di sebelah kiri kolom A, dan ketik 1 di sel A2, lihat tangkapan layar:

2. Lalu masukkan rumus ini = A2 + C2 ke A3, dan seret gagang isian ke sel A6, lihat tangkapan layar:

3. Dan kemudian masukkan 1 di sel D2, dan isi nomor dengan menyeret Isi Otomatis ke 12 yang merupakan jumlah total angka kali di kolom C, lihat tangkapan layar:

4. Lalu masukkan rumus ini = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) ke sel E2 dan salin ke bawah, Anda akan mendapatkan hasil sebagai berikut:

  • Catatan:
  • 1. Dalam rumus ini, D2 menunjukkan sel pertama yang Anda isi dengan urutan nomor, dan A1: B6 adalah rentang kolom pembantu pertama dan nilai sel asli yang perlu Anda ulangi.
  • 2. Setelah mendapatkan nilai berulang, Anda dapat menyalin dan menempelkannya sebagai nilai ke tempat lain.

Salin dan sisipkan baris X kali berdasarkan nomor tertentu dengan mudah

Biasanya, tidak ada metode yang baik untuk menyalin dan menyisipkan baris beberapa kali kecuali berurusan dengan salin dan sisipkan secara manual. Tetapi dengan Kutools untuk Excel's Baris / kolom duplikat berdasarkan nilai sel fitur, Anda dapat mengatasi masalah ini dengan mudah. Klik untuk mengunduh Kutools for Excel!

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. Unduh dan uji coba gratis Sekarang!


Ulangi nilai sel X kali dengan kode VBA

Jika Anda menganggap metode pertama sulit untuk dipahami, di sini saya juga dapat memperkenalkan Anda kode VBA untuk menyelesaikannya.

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic for Applications.

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

Kode VBA: Ulangi nilai sel X kali

Sub CopyData()
'Updateby Extendoffice
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 OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda untuk memilih rentang yang berisi nilai dan waktu berulang, lihat tangkapan layar:

4. Dan klik OK, kotak prompt lain akan muncul untuk membiarkan Anda memilih sel untuk meletakkan hasilnya, lihat tangkapan layar:

5. Lalu klik OK, dan Anda akan mendapatkan hasil bahwa nilai yang Anda pilih telah diulangi dalam waktu yang ditentukan sesuai kebutuhan.


Salin dan masukkan nilai sel X kali dengan fitur luar biasa

Terkadang, Anda mungkin perlu menyalin dan memasukkan nilai sel x kali berdasarkan nomor tertentu, Kutools untuk Excel's Duplikat Baris / Kolom berdasarkan nilai sel dapat membantu Anda dengan cepat menyalin dan menyisipkan baris berdasarkan nomor yang Anda tentukan.

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

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

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 waktu pengulangan untuk menyalin dan menyisipkan baris, lihat tangkapan layar:

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

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


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-2021 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.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (45)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini, sangat mudah dilakukan dan dipahami. Saya biasa melakukan ini secara manual dengan 2600 sel.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara agar makro mengingat tujuan input dan output sehingga lain kali makro dijalankan, Anda tidak perlu memilih ulang?
Komentar ini diminimalkan oleh moderator di situs
Kode VBA rusak ketika ada nilai 0 di kolom "berapa kali". Sesuaikan For Each loop sebagai berikut: Untuk Setiap Rng Di InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value If xNum > 0 Then OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Komentar ini diminimalkan oleh moderator di situs
Terima kasih sobat!! Menghemat banyak waktu. :-)
Komentar ini diminimalkan oleh moderator di situs
Saya menggunakan pendekatan pertama, itu bekerja dengan sempurna, Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih sobat ..!! Ini berfungsi dan menghemat banyak waktu saya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih!! Menyelamatkan saya banyak waktu. Pintar menggunakan vlookup!
Komentar ini diminimalkan oleh moderator di situs
Seperti #John Said, apakah ada cara untuk mengatur rentang sehingga Anda tidak perlu memilih. Saya juga mencoba menempelkan masing-masing Nilai ke dalam kolomnya sendiri. Saya telah mengubah baris Set OutRng=OutRng.offset(xNum,0) menjadi Set OutRng=OutRng.offset(xNum,1) untuk membuatnya menjadi kolom Sepertinya saya mendapatkan kesalahan pada baris OutRng.Resize(xNum ,1).value=xValue bahkan jika saya menyalin dan menempelkan kode dari situs ini. Bantuan apa pun akan sangat dihargai.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak!!!! VB Macro bekerja untuk saya dan menghemat waktu 1 minggu saya .... Terima kasih lagi ..
Komentar ini diminimalkan oleh moderator di situs
Hai, Apakah kode VBA yang disarankan dalam artikel berfungsi jika sel dengan jumlah kali tidak di sebelah sel dengan nilai? Jika tidak, apakah ada cara untuk memodifikasi VBA agar berfungsi?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. :)
Komentar ini diminimalkan oleh moderator di situs
Hai, saya punya pertanyaan: Data dasar: Negara Klien Keluaran Keseluruhan: Klien1 Klien2 Klien3 (jika ada) Negara1 Negara2 & seterusnya...(jika ada) Keseluruhan1 Keseluruhan2 & seterusnya...(jika ada) Mohon siapa saja dapat selesaikan ini saat menggunakan rumus di excel ASAP
Komentar ini diminimalkan oleh moderator di situs
Luar biasa! Terimakasih banyak!!!!!!!!
Komentar ini diminimalkan oleh moderator di situs
Masih menyimpan proyek di 2017! Terima kasih banyak untuk ini! :-)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak kawan, U melakukan pekerjaan dengan baik.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk mengubah kode sehingga ada 2 kolom dengan data dan 1 kolom dengan jumlah pengulangan. yaitu A1 = x B2 = y C3 = 2 makro kemudian akan mengulangi A1 dua kali dan b2 dua kali di sel di sebelah kanan Bantuan apa pun diberikan. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Ini sangat membantu, berguna untuk membuat spreadsheet untuk bekerja
Komentar ini diminimalkan oleh moderator di situs
pak
Komentar ini diminimalkan oleh moderator di situs
VBA atau rumusnya. Tak satu pun dari mereka bekerja untuk saya. Ini memberikan "kesalahan yang ditentukan aplikasi atau objek yang ditentukan" Kesalahan 1004. Adakah yang bisa membantu?
Komentar ini diminimalkan oleh moderator di situs
Kode VBA tidak berfungsi jika Anda tidak memiliki Kutools. Ini memberi saya kesalahan "variabel tidak ditentukan"
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL