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

Jak połączyć zawartość wielu komórek bez utraty danych w programie Excel?

Możemy często łączyć komórki i ich zawartość w programie Microsoft Excel. Czy jednak znajdujesz najłatwiejszy sposób łączenia zawartości komórek? Tutaj porozmawiamy o tym, jak łatwo i szybko łączyć zawartość komórek w programie Excel.

Połącz wiele komórek w jedną komórkę za pomocą kodu VBA
Połącz wiele komórek w jedną komórkę za pomocą Kutools for Excel bez utraty danych


Połącz wiele komórek w jedną komórkę za pomocą kodu VBA

Poniższy kod VBA może pomóc w połączeniu wielu komórek w jedną komórkę i możesz zastosować kod, wykonując następujące czynności:

1, Kliknij Deweloper > Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Następnie kliknij doc-pomnóż-obliczenie-3 przycisk, aby wykonać kod. Pojawi się okno dialogowe, w którym możesz wybrać zakres do pracy z VBA. Zobacz zrzuty ekranu:

3, Kliknij Ok, zostanie wyświetlone inne okno dialogowe, w którym można określić separator. Zobacz zrzut ekranu:

doc połącz zawartość komórki 2

4, Kliknij Ok, następnie zawartość komórki w wybranym zakresie zostanie połączona w komórkę. Zobacz zrzut ekranu:

doc połącz zawartość komórki 3


Połącz wiele komórek w jedną komórkę za pomocą Kutools for Excel bez utraty danych

Jeśli masz Kutools dla programu Excel po zainstalowaniu można wygodnie łączyć zawartość komórek z wielu kolumn lub wierszy bez używania formuł.

1. Wybierz komórki, które chcesz scalić dane. I zastosuj to narzędzie, klikając Kutools > Połącz i podziel > Połącz wiersze, kolumny lub komórki bez utraty danych.

2, w Połącz kolumny lub wiersze W oknie dialogowym określ potrzebne opcje. Zobacz zrzut ekranu:

  • (1.) Wybierz Połącz w jedną komórkę dla Aby połączyć wybrane komórki zgodnie z następującymi opcjami;
  • (2.) Określ separator dla połączonych danych. Możesz oddzielić każdą treść spacją, nic, średnikiem lub określonym tekstem. Możesz także wyświetlić połączoną zawartość w nowej linii.

doc połącz zawartość komórki 5

3. Następnie kliknij OK or Zastosuj, wszystkie dane z wielu komórek zostały scalone w jedną komórkę. Zobacz zrzut ekranu:

Uwaga: to narzędzie może również pomóc w łączeniu komórek wybranych kolumn. Możesz połączyć imię i nazwisko w jedną komórkę z pełnym imieniem, jak pokazano poniżej.

Następnie możesz zobaczyć, że imiona i nazwiska są połączone i znajdują się w komórkach z pełnymi nazwiskami.

  Jeśli chcesz skorzystać z bezpłatnego okresu próbnego (30-dzień) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Powiązane artykuły


Demo: łącz / scal wiele komórek w jedną bez utraty danych


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 (7)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo pomocne dziękuję zajęło mi trochę czasu, aby go znaleźć, ale właśnie tego potrzebowałem. Uwaga w kodzie VBA, jeśli chcesz oddzielić dane średnikiem, przecinkiem lub innym znakiem w polu "delim = " " ", umieść znak między przykładem cudzysłowów: delim = ";". Dzięki jeszcze raz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wielkie dzięki za kod. Był bardzo pomocny.
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo dziękuję - była to duża pomoc!
Ten komentarz został zminimalizowany przez moderatora na stronie
jak połączyć 2 komórki np:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Ten komentarz został zminimalizowany przez moderatora na stronie
Niesamowite! Bardzo pomaga! Dziękuję bardzo!
Ten komentarz został zminimalizowany przez moderatora na stronie
jak powtórzyć ten proces, jeśli mam 4 różne referencje i muszę je połączyć jeden po drugim?
Ten komentarz został zminimalizowany przez moderatora na stronie
moje wcześniejsze zapytanie dotyczy tego vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range ", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Scalanie symboli", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Westchnij Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Między, co oznacza tutaj typ "8 „&”2” odnosi się do
Nie ma tu jeszcze żadnych komentarzy
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