Как бързо да обедините съседни редове със същите данни в Excel?
Да предположим, че имате работен лист с едни и същи данни в съседните редове и сега искате да обедините същите клетки в една клетка, така че данните да изглеждат чисти и красиви. Как обединявате съседни редове с едни и същи данни бързо и удобно? Днес ще ви представя един бърз начин за решаване на този проблем.
Обединяване на съседни редове от едни и същи данни с VBA код
Разбира се, можете да обедините същите данни с Обединяване и центриране но ако има стотици клетки, които трябва да бъдат обединени, този метод ще отнеме много време. Така че следният VBA код може да ви помогне лесно да обедините същите данни.
1. Задръжте натиснат ALT + F11 ключове и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния макрос в Модулипрозорец.
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. Щракнете Kutools > Обединяване и разделяне > Обединяване на същите клетки, вижте екранна снимка:
3. След това същите данни в избраните колони са обединени в една клетка. Вижте екранна снимка:
Щракнете, за да изтеглите Kutools за Excel и безплатна пробна версия сега!
За да научите повече за това, моля посетете това Обединяване на същите клетки функция.
Демонстрация: Обединете същите клетки в една клетка или отменете обединяването, за да попълните дублирани стойности:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!