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
- 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.
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:
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:
