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

Як об’єднати кожен другий рядок / комірку в Excel?

Якщо у вас є список даних, і ви хочете об’єднати кожен другий рядок або комірку з них, як показано нижче, чи знаєте ви, як це зробити? В Excel ви можете використовувати формулу або VBA для об'єднання всіх інших рядків або комірок.


Об’єднайте кожен другий рядок / комірку з формулою в Excel

Об’єднайте кожен другий рядок / комірку з VBA

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2021 і 365; Підтримує всі мови; Легке розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Об’єднайте кожен другий рядок / комірку з формулою в Excel

Виділіть порожню комірку та введіть =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) ($ 1 вказує на перші дані у вашому списку, ви можете змінити їх, як вам потрібно), і натисніть клавішу Enter. Потім перетягніть маркер заповнення, щоб заповнити діапазон, необхідний для застосування цієї формули. Дивіться знімок екрана:



стрілка синя права міхур Об’єднайте кожен другий рядок / комірку з VBA

Якщо ви звикли використовувати VBA, ви також можете запустити нижченаведений VBA, щоб об’єднати всі інші рядки.

1 Тримайся ALT і натисніть F11 на клавіатурі, щоб відкрити a Microsoft Visual Basic для програми вікна.

2. клацання Insert > Модуліта скопіюйте VBA в модуль.

VBA: Об’єднати кожен другий рядок / комірку

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. клацання прогін для запуску коду VBA, а Kutools для Excel спливає діалогове вікно для вибору діапазону комірок, які потрібно об’єднати з кожним другим рядком. Дивіться знімок екрана:


4. клацання OK, відобразиться інше діалогове вікно для вибору однієї комірки для виведення об’єднаного результату. Дивіться знімок екрана:


5. клацання OK, і ви можете побачити результат:



Відносні статті:

Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL