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
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 Kutools dla programu Excel 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: