Przejdź do głównej zawartości

Jak rozdzielić komórki i wypełnić zduplikowanymi wartościami w programie Excel?

Jeśli masz arkusz roboczy zawierający wiele połączonych komórek, a teraz musisz je rozdzielić i automatycznie wypełnić oryginalne wartości ze scalonych komórek, jak pokazano na poniższych zrzutach ekranu. Jak mogłeś szybko poradzić sobie z tym zadaniem?

Rozdziel komórki i wypełnij zduplikowanymi danymi za pomocą polecenia Przejdź do specjalnego

Rozdziel komórki i wypełnij zduplikowanymi danymi za pomocą kodu VBA

Rozłącz komórki i wypełnij zduplikowanymi danymi jednym kliknięciem


strzałka niebieski prawy bąbelek Rozdziel komórki i wypełnij zduplikowanymi danymi za pomocą polecenia Przejdź do specjalnego

Z Przejdź do specjalnego polecenie, możesz rozdzielić komórki i wypełnić wartości. Ale ta metoda jest nieco kłopotliwa, wykonaj następujące czynności:

1. Wybierz kolumny zawierające scalone komórki.

2. Kliknij Strona główna > Scal i wyśrodkuj > Rozdziel komórki. Zobacz zrzut ekranu:

3. Połączone komórki zostały rozłączone i tylko pierwsza komórka zostanie wypełniona oryginalnymi wartościami. Następnie ponownie wybierz zakres.

4. Następnie kliknij Strona główna > Znajdź i wybierz > Przejdź do specjalnego, w Przejdź do specjalnego okno dialogowe, wybierz Puste opcja. Zobacz zrzut ekranu:

5. A następnie kliknij OKzaznaczono wszystkie puste komórki w zakresie. Następnie wprowadź = i naciśnij Up klawisz strzałki na klawiaturze. Zobacz zrzut ekranu:

6. Następnie naciśnij Ctrl + Enter klucze, wszystkie puste komórki zostały wypełnione oryginalnymi połączonymi danymi. Zobacz zrzut ekranu:


strzałka niebieski prawy bąbelek Rozdziel komórki i wypełnij zduplikowanymi danymi za pomocą kodu VBA

Za pomocą następującego kodu VBA możesz szybko rozdzielić komórki i wypełnić wartości.

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

2. Kliknij wstawka > Modułi wklej następujące makro w Modułokno.

Sub UnMergeSameCell () „Upadateby Extendoffice
Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = Fałsz dla każdego Rng w WorkRng, jeśli Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, zostanie wyświetlone okno dialogowe umożliwiające wybranie zakresu do pracy, patrz zrzut ekranu:

4. Kliknij OK, następnie scalone komórki zostały rozłączone i automatycznie wypełnione oryginalnymi scalonymi wartościami.


strzałka niebieski prawy bąbelek Rozłącz komórki i wypełnij zduplikowanymi danymi jednym kliknięciem

Z Rozłącz komórkę użyteczność Kutools dla programu Excel, możesz rozdzielić komórki i wypełnić zduplikowanymi danymi jednym kliknięciem, ta metoda jest bardzo prosta i poręczna.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni

Po zainstalowaniu Kutools dla programu Excelmożesz wykonać następujące czynności:

1. Wybierz kolumny, które chcesz rozdzielić, i wypełnij dane.

2. Kliknij Kutools > Połącz i podziel > Rozdziel komórki i wartość wypełnieniazobacz zrzut ekranu:

3. Połączone komórki zostały rozłączone i od razu wypełnione zduplikowanymi wartościami. Zobacz zrzuty ekranu:


strzałka niebieski prawy bąbelek Rozłącz komórki i wypełnij zduplikowanymi danymi za pomocą Kutools for 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 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Podobne artykuły:

Scal sąsiednie wiersze z tymi samymi danymi w programie Excel

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


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!
Comments (49)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, It really made life easier
This comment was minimized by the moderator on the site
This doesn't solve the problem with sheet that has some blank cells natively
When you find blank cells and fill with value of the cell above, you accidentally fill all the native-blank cells with unwanted values
This comment was minimized by the moderator on the site
Hello, David,
Thanks for your comment.
Yes, if you use the first method, this problem will occur, but if you want to keep the original blank cells, you'd better to use the second or third method in our article.

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Actually there's an easy way to fix this. After step 1, find-replace blank cells with a space.
Then after step 6, find-replace cells with a space with blanks.
Could you consider adding those steps to this tutorial?
This comment was minimized by the moderator on the site
Exatamente o que queria!

Muito obrigada!
This comment was minimized by the moderator on the site
LIFE SAVER! LOVE YOU
This comment was minimized by the moderator on the site
Thanks a lot!! the best solutions
This comment was minimized by the moderator on the site
We can do this using the Broffice Sheets, you must just unmerge it and the data will automatically be repeated in the cells, since they exists before.
This comment was minimized by the moderator on the site
This is amazing. Thank you!
This comment was minimized by the moderator on the site
Thanks... loved it
This comment was minimized by the moderator on the site
The VBA code stalls when an entire columns are selected. There should be a mechanism defending against fruitless running through large loops. Apart from that it works fine.
This comment was minimized by the moderator on the site
thanks very much Saved me lot of time
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations