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

Jak scalić co drugi wiersz / komórkę w programie Excel?

Jeśli masz listę danych i chcesz połączyć każdy inny wiersz lub komórkę, jak pokazano poniżej, czy wiesz, jak to zrobić? W programie Excel możesz użyć formuły lub VBA, aby scalić co drugi wiersz lub komórki.


Scal co drugi wiersz / komórkę z formułą w programie Excel

Scal co drugi wiersz / komórkę za pomocą VBA

Karta Office Włącz edycję i przeglądanie na kartach w pakiecie Office i znacznie ułatw swoją pracę ...
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
  • Wykorzystaj wszystko ponownie: Dodaj najczęściej używane lub złożone formuły, wykresy i wszystko inne do ulubionych i szybko wykorzystaj je ponownie w przyszłości.
  • Ponad 20 funkcji tekstowych: Wyodrębnij liczbę z ciągu tekstowego; Wyodrębnij lub usuń część tekstów; Konwertuj liczby i waluty na angielskie słowa.
  • Narzędzia do scalania: Wiele skoroszytów i arkuszy w jeden; Scal wiele komórek / wierszy / kolumn bez utraty danych; Połącz zduplikowane wiersze i sumę.
  • Podziel narzędzia: Podziel dane na wiele arkuszy na podstawie wartości; Jeden skoroszyt do wielu plików Excel, PDF lub CSV; Jedna kolumna na wiele kolumn.
  • Wklej pomijanie Ukryte / filtrowane wiersze; Policz i suma według koloru tła; Wysyłaj spersonalizowane wiadomości e-mail do wielu odbiorców zbiorczo.
  • Super filtr: Twórz zaawansowane schematy filtrów i stosuj do dowolnych arkuszy; Sortuj według tygodnia, dnia, częstotliwości i nie tylko; Filtruj pogrubieniem, formułami, komentarzem ...
  • Ponad 300 zaawansowanych funkcji; Współpracuje z Office 2007-2021 i 365; Obsługuje wszystkie języki; Łatwe wdrażanie w przedsiębiorstwie lub organizacji.

strzałka niebieski prawy bąbelek Scal co drugi wiersz / komórkę z formułą w programie Excel

Wybierz pustą komórkę i wpisz =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (1 $ oznacza pierwsze dane na liście, możesz je zmienić w razie potrzeby) i naciśnij klawisz Enter. Następnie przeciągnij uchwyt wypełniania, aby wypełnić zakres, w którym chcesz zastosować tę formułę. Zobacz zrzut ekranu:



strzałka niebieski prawy bąbelek Scal co drugi wiersz / komórkę za pomocą VBA

Jeśli jesteś przyzwyczajony do korzystania z VBA, możesz również uruchomić poniższy VBA, aby scalić co drugi wiersz.

1. Utrzymać ALT i naciśnij F11 na klawiaturze, aby otworzyć plik Microsoft Visual Basic dla aplikacji okno.

2. kliknij wstawka > Modułi skopiuj VBA do modułu.

VBA: Scal co drugi wiersz / komórkę

Sub CombineCells()
'Updateby20140314
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)
For i = 1 To InputRng.Rows.Count Step 2
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
        Set OutRng = OutRng.Offset(0, 1)
    Next
    Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub         

 

3. kliknij run do uruchomienia kodu VBA, a KutoolsforExcel pojawi się okno dialogowe, w którym możesz wybrać zakres komórek, które chcesz scalić z co drugim wierszem. Zobacz zrzut ekranu:


4. kliknij OK, pojawi się kolejne okno dialogowe, w którym możesz wybrać pojedynczą komórkę, aby wyświetlić scalony wynik. Zobacz zrzut ekranu:


5. kliknij OKi możesz zobaczyć wynik:



Względne artykuły:

Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
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