Як швидко об’єднати сусідні рядки з однаковими даними в Excel?
Припустимо, у вас є робочий аркуш з однаковими даними в сусідніх рядках, і тепер ви хочете об’єднати ті самі комірки в одну комірку, щоб дані виглядали акуратно і красиво. Як швидко та зручно об’єднати сусідні рядки з однаковими даними? Сьогодні я познайомлю вас із швидким способом вирішення цієї проблеми.
Об’єднайте сусідні рядки однакових даних із кодом VBA
Звичайно, ви можете об'єднати ті самі дані з Злиття та центр команда, але якщо є сотні комірок, які потрібно об’єднати, цей метод буде трудомістким. Отже, наступний код VBA може допомогти вам легко об’єднати ті самі дані.
1. Утримуйте клавішу ALT + F11 і відкриває Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний макрос у Модулівікна.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Потім натисніть F5 для запуску цього коду, на екрані відображається діалогове вікно для вибору діапазону для роботи. Дивіться знімок екрана:
4. Потім натисніть OK, ті самі дані у стовпці A будуть об’єднані разом. Дивіться знімок екрана:
Об’єднайте суміжні рядки однакових даних за допомогою Kutools для Excel
З Об’єднати ті самі комірки корисність Kutools для Excel, Ви можете швидко об’єднати однакові значення в декількох стовпцях одним клацанням миші.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, Ви можете зробити наступне:
1. Виберіть стовпці, для яких потрібно об’єднати сусідні рядки з однаковими даними.
2. Клацання Кутулс > Злиття та розділення > Об’єднайте ті самі клітини, див. скріншот:
3. А потім ті самі дані у вибраних стовпцях були об’єднані в одній комірці. Дивіться знімок екрана:
Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!
Щоб дізнатись більше про це, відвідайте це Об’єднайте ті самі клітини функцію.
Демонстрація: Об’єднайте ті самі комірки в одну комірку або об’єднайте, щоб заповнити повторювані значення:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!