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

Jak powtórzyć wartość komórki x razy w programie Excel?

Na przykład masz listę wartości w kolumnie A i chcesz powtórzyć wartości określoną liczbę razy w oparciu o liczbę razy w kolumnie B, jak pokazano na lewym zrzucie ekranu, jak możesz to osiągnąć w programie Excel?

 

Powtórz wartości komórek X razy z formułą i kolumną pomocniczą

Aby powtórzyć wartości komórek X razy, możesz wstawić kolumny pomocnicze, a następnie zastosować prostą formułę, wykonaj następujące czynności:

1. Wstaw kolumnę po lewej stronie kolumny A i wpisz 1 w komórce A2, patrz zrzut ekranu:

2. Następnie umieść tę formułę = A2 + C2 do A3 i przeciągnij uchwyt wypełniania do komórki A6, patrz zrzut ekranu:

3. A następnie wprowadź 1 w komórce D2 i wypełnij liczbę, przeciągając automatyczne wypełnienie do 12, co jest całkowitą liczbą razy w kolumnie C, patrz zrzut ekranu:

4. Następnie wprowadź tę formułę = WYSZUKAJ.PIONOWO (D2, 1 A $ 6,2: B XNUMX $) do komórki E2 i skopiuj, otrzymasz następujący wynik:

  • Uwagi:
  • 1. W tym wzorze D2 wskazuje pierwszą komórkę, w której znajduje się sekwencja liczb, i A1: B6 oznacza zakres pierwszej kolumny pomocnika i oryginalne wartości komórek, które należy powtórzyć.
  • 2. Po uzyskaniu powtarzających się wartości możesz je skopiować i wkleić jako wartości w dowolnym innym miejscu.

Łatwo kopiuj i wstawiaj wiersze X razy na podstawie określonej liczby

Zwykle nie ma dobrej metody wielokrotnego kopiowania i wstawiania wierszy, z wyjątkiem ręcznego kopiowania i wstawiania. Ale z Kutools dla programu Excel's Zduplikowane wiersze / kolumny na podstawie wartości komórki możesz z łatwością rozwiązać ten problem. Kliknij, aby pobrać Kutools dla programu Excel!

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 60 dni. Pobierz i bezpłatną wersję próbną teraz!


Powtórz wartości komórek X razy z kodem VBA

Jeśli uważasz, że pierwsza metoda jest trudna do zrozumienia, tutaj mogę również przedstawić kod VBA, aby go rozwiązać.

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: powtórz wartości komórek X razy

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wybraniu zakresu zawierającego wartości i powtórzone czasy, patrz zrzut ekranu:

4, i kliknij OK, pojawi się kolejne okno zachęty, które pozwoli ci wybrać komórkę do umieszczenia wyniku, patrz zrzut ekranu:

5. Następnie kliknij OK, a otrzymasz wynik, że wybrane wartości zostały powtórzone określone razy, zgodnie z potrzebami.


Skopiuj i wstaw wartości komórek X razy dzięki niesamowitej funkcji

Czasami może być konieczne skopiowanie i wstawienie wartości komórek x razy na podstawie określonej liczby, Kutools dla programu Excel's Zduplikowane wiersze / kolumny na podstawie wartości komórki może pomóc w szybkim kopiowaniu i wstawianiu wierszy na podstawie podanej liczby.

Porady:Aby to zastosować Zduplikowane wiersze / kolumny na podstawie wartości komórki Po pierwsze, należy pobrać plik Kutools dla programu Excel, a następnie szybko i łatwo zastosuj tę funkcję.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1, Kliknij Kutools > wstawka > Zduplikowane wiersze / kolumny na podstawie wartości komórkizobacz zrzut ekranu:

2, w Skopiuj i wstaw wiersze i kolumny okno dialogowe, wybierz Skopiuj i wstaw wiersze opcja w Typ , a następnie wybierz zakres danych, który chcesz powielić, a następnie określ czas powtarzania kopiowania i wstawiania wierszy, patrz zrzut ekranu:

4. Następnie kliknij Ok or Zastosuj przycisk, otrzymasz taki wynik, jak potrzebujesz:

Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (45)
Znamionowy 5 z 5 · 1 oceny
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za to, bardzo łatwe do zrobienia i zrozumienia. Kiedyś robiłem to ręcznie z 2600 komórkami.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób, aby makro zapamiętało miejsce docelowe danych wejściowych i wyjściowych, aby przy następnym uruchomieniu makra nie trzeba było ponownie wybierać?
Ten komentarz został zminimalizowany przez moderatora na stronie
Kod VBA ulega zerwaniu, gdy w kolumnie „liczba razy” znajduje się wartość 0. Dostosuj pętlę For Each w następujący sposób: For Each Rng In 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
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki!! Zaoszczędziłem dużo czasu. :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
Użyłem pierwszego podejścia, zadziałało bezbłędnie, dziękuję.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki ..!! To działa i zaoszczędziło mi dużo czasu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki!! Zaoszczędził mi mnóstwo czasu. Sprytne wykorzystanie funkcji przeglądania!
Ten komentarz został zminimalizowany przez moderatora na stronie
Podobnie jak #John Said, czy istnieje sposób na ustawienie zakresu, dzięki czemu nie musisz wybierać. Staram się również wkleić każdą indywidualną wartość do własnej kolumny. Zmieniłem wiersz Set OutRng=OutRng.offset(xNum,0) na Set OutRng=OutRng.offset(xNum,1), próbując umieścić go w kolumnach. Wygląda na to, że pojawia się błąd w wierszu OutRng.Resize(xNum ,1).value=xValue, nawet jeśli skopiuję i wkleję kod z tej strony. Każda pomoc byłaby bardzo mile widziana.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielkie dzięki !!!! VB Macro pracował dla mnie i zaoszczędził mój 1 tydzień czasu .... Jeszcze raz dziękuję ...
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Czy sugerowany kod VBA w artykule zadziała, jeśli komórki z liczbą razy nie znajdują się obok komórek z wartością? Jeśli nie, czy istnieje sposób na zmodyfikowanie VBA, aby działał?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo. :)
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, mam zapytanie: Dane bazowe: Klient Kraj Ogólnie dane wyjściowe: Klient1 Klient2 Klient3 (jeśli istnieje) Kraj1 Kraj2 i tak dalej... (jeśli istnieje) Ogółem1 Ogółem2 i tak dalej...(jeśli w ogóle) Uprzejmie każdy może rozwiąż to, używając formuły w programie Excel JAK NAJSZYBCIEJ
Ten komentarz został zminimalizowany przez moderatora na stronie
Niesamowite! Wielkie dzięki!!!!!!!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Wciąż oszczędzam projekty w 2017 roku! Dziękuję bardzo za to! :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielkie dzięki, wykonałeś świetną robotę.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób na zmianę kodu tak, aby były 2 kolumny z danymi i 1 kolumna z ilością powtórzeń. tj. A1 = x B2 = y C3 = 2 makro powtórzyłoby wtedy dwa razy A1 i dwa razy b2 w komórkach po prawej. Dowolna pomoc. Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
To było bardzo pomocne, przydało się do stworzenia arkusza kalkulacyjnego do pracy
Ten komentarz został zminimalizowany przez moderatora na stronie
मैं बहुत दिनों से यह ऑप्शन ढूढ रहा था धन्यवाद sir
Ten komentarz został zminimalizowany przez moderatora na stronie
VBA lub formuła. Żaden z nich nie pracuje dla mnie. Daje błąd „zdefiniowany przez aplikację lub zdefiniowany przez obiekt” Błąd 1004. Czy ktoś może pomóc?
Ten komentarz został zminimalizowany przez moderatora na stronie
Kod VBA nie działa, jeśli nie masz Kutools. Daje mi błąd "zmienna niezdefiniowana"
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL