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

Excel'de hücre değeri x kez nasıl tekrarlanır?

Örneğin, A Sütununda bir değerler listeniz var ve değerleri, gösterilen sol ekran görüntüsü gibi, Sütun B'deki sayılara göre belirli sayıda tekrarlamak istiyorsunuz, bunu Excel'de nasıl başarabilirsiniz?

 

Hücre değerlerini formül ve yardımcı sütunla X kez tekrarlayın

Hücre değerlerini X kez tekrarlamak için, bazı yardımcı sütunlar ekleyebilir ve ardından bazı basit formüller uygulayabilirsiniz, lütfen aşağıdaki adımları uygulayın:

1. A sütununun soluna bir sütun ekleyin ve A1 hücresine 2 yazın, ekran görüntüsüne bakın:

2. Sonra bu formülü koy = A2 + C2 A3'e yerleştirin ve dolgu tutamacını A6 hücresine sürükleyin, ekran görüntüsüne bakın:

3. Ve sonra D1 hücresine 2 girin ve Otomatik Doldurma'yı C sütunundaki toplam sayı sayısının toplam sayısı olan 12'ye sürükleyerek sayıyı doldurun, ekran görüntüsüne bakın:

4. Sonra bu formülü girin = DÜŞEYARA (D2, $ A $ 1: $ B $ 6,2) E2 hücresine kopyalayın, aşağıdaki sonucu alacaksınız:

  • notlar:
  • 1. Bu formülde, D2 sayı dizisiyle doldurduğunuz ilk hücreyi gösterir ve A1: B6 ilk yardımcı sütunun aralığı ve yinelemeniz gereken orijinal hücre değerleri anlamına gelir.
  • 2. Yinelenen değerleri aldıktan sonra, bunları kopyalayıp başka bir yere değerler olarak yapıştırabilirsiniz.

Belirli numaraya göre satırları X kez kopyalayıp ekleyin

Normalde, satırları birden çok kez kopyalamak ve eklemek için el ile kopyalama ve ekleme işlemleri dışında iyi bir yöntem yoktur. Fakat Kutools for Excel's Hücre değerine göre satırları / sütunları çoğaltın özelliği, bu sorunu kolaylıkla çözebilirsiniz. Kutools for Excel'i indirmek için tıklayın!

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!


VBA kodu ile hücre değerlerini X kez tekrarlayın

İlk yöntemin anlaşılmasının zor olduğunu düşünüyorsanız, burada çözmeniz için size VBA kodunu da tanıtabilirim.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: Hücre değerlerini X kez tekrarlayın

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve size değerleri ve tekrarlanan süreleri içeren aralığı seçmenizi hatırlatan bir istem kutusu görünecektir, ekran görüntüsüne bakın:

4. Ve tıklayın OK, sonucu koymak için bir hücre seçmenize izin veren başka bir istem kutusu açılır, ekran görüntüsüne bakın:

5. Sonra tıklayın OK, ve seçtiğiniz değerlerin ihtiyaç duyduğunuzda belirtilen zamanlarda tekrarlandığı sonucunu alacaksınız.


Harika bir özellikle hücre değerlerini X kez kopyalayıp ekleyin

Bazen, hücre değerlerini belirli sayıya göre x kez kopyalayıp eklemeniz gerekebilir, Kutools for Excel's Hücre değerine göre Yinelenen Satırları / Sütunları , belirttiğiniz numaraya göre satırları hızlı bir şekilde kopyalayıp eklemenize yardımcı olabilir.

İpuçları:Bunu uygulamak için Hücre değerine göre Yinelenen Satırları / Sütunları özelliği, öncelikle indirmelisiniz Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. tıklayın Kutools > Ekle > Hücre değerine göre Yinelenen Satırları / Sütunları, ekran görüntüsüne bakın:

2. In Satırları ve sütunları kopyalayın ve ekleyin iletişim kutusunu seçin Satırları kopyala ve ekle seçeneği Tip bölümünde, kopyalamak istediğiniz veri aralığını seçin ve ardından satırları kopyalamak ve eklemek için tekrar süresini belirtin, ekran görüntüsüne bakın:

4. Daha sonra, Ok or Tamam düğmesi, ihtiyacınız olduğunda aşağıdaki sonucu alacaksınız:

Kutools for Excel'i indirmek için tıklayın ve Şimdi ücretsiz deneme!


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (45)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun için teşekkür ederim, yapmak ve anlamak çok kolay. Bunu 2600 hücre ile manuel olarak yapardım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Makronun giriş ve çıkış hedefini hatırlamasını sağlamanın bir yolu var mı, böylece makro bir daha çalıştırıldığında yeniden seçmeniz gerekmez mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodu, "kez sayısı" sütununda 0 değeri olduğunda bozulur. For Every döngüsünü aşağıdaki gibi ayarlayın: InputRng.Rows'daki Her Rng için xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value If xNum > 0 Sonra OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) Sonraki ise Sonlandır
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler dostum!! Çok zaman kazandım. :-)
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk yaklaşımı kullandım, kusursuz çalıştı, Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler dostum ..!! Bu çalışıyor ve bol miktarda zamanımı kurtardı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler!! Bana tonlarca zaman kazandırdı. Vlookup'ın akıllıca kullanımı!
Bu yorum sitedeki moderatör tarafından en aza indirildi
#John Said gibi, seçim yapmanıza gerek kalmayacak şekilde belirlenmiş bir aralığa sahip olmanın bir yolu var mı? Ayrıca her bir Değeri kendi sütununa yapıştırmaya çalışıyorum. Sütunlara dönüştürmek için Set OutRng=OutRng.offset(xNum,0) satırını Set OutRng=OutRng.offset(xNum,1) olarak değiştirdim OutRng.Resize(xNum) satırında bir hata alıyorum gibi görünüyor ,1).value=xValue kodu bu siteden kopyalayıp yapıştırsam bile. Herhangi bir yardım çok takdir edilecektir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler !!!! VB Makro benim için çalıştı ve 1 haftalık zamanımı kurtardı.... Tekrar Teşekkürler..
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, makaledeki önerilen VBA kodu, sayısı olan hücreler, değere sahip hücrelerin yanında değilse çalışır mı? Değilse, çalışmasını sağlamak için VBA'yı değiştirmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim. :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bir sorum var: Temel veriler: Müşteri Ülke Genel Çıktı: Müşteri1 Müşteri2 Müşteri3 (varsa) Ülke1 Ülke2 ve benzeri...(varsa) Genel1 Genel2 ve benzeri...(varsa) Lütfen herkes yapabilir ASAP excel'de formülü kullanırken bunu çözün
Bu yorum sitedeki moderatör tarafından en aza indirildi
Mükemmel! Çok teşekkürler!!!!!!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
2017'de hala projeleri kaydediyor! Bunun için çok teşekkürler! :-)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler dostum, harika bir iş çıkardın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu değiştirmenin bir yolu var mı, böylece veri içeren 2 sütun ve tekrar sayısı olan 1 sütun var. yani A1 = x B2 = y C3 = 2 makro daha sonra sağdaki hücrelerde A1'i iki kez ve b2'yi iki kez tekrar eder Herhangi bir yardım gerekli. Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu çok yardımcı oldu, iş için bir elektronik tablo oluşturmak için kullanışlı oldu
Bu yorum sitedeki moderatör tarafından en aza indirildi
मैं बहुत दिनों से यह ऑप्शन ढूढ रहा था धन्यवाद efendim
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA veya formül. Hiçbiri benim için çalışmıyor. "Uygulama tanımlı veya nesne tanımlı hata" veriyor Hata 1004. Yardımcı olabilecek var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kutools'unuz yoksa VBA kodu çalışmaz. "değişken tanımlanmadı" hatası veriyor
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır