Як автоматично об’єднати порожні клітинки над / зліва в Excel?
У цій статті я збираюся говорити про об’єднання порожніх клітинок вгорі або вліво автоматично, як показано на знімку екрана. Насправді немає вбудованої утиліти, яка б могла впоратися з цим завданням, але коди макросів можуть.
| Об’єднайте пробіли вгорі | ||
 |
 |
 |
| Об’єднайте порожні місця вліво | ||
 |
|
 |
Об’єднайте пусті клітинки вище на основі стовпця
Об’єднати пусті клітинки вище (працює лише для одного стовпця)
Об’єднайте порожні клітинки зліва
Об’єднайте пусті клітинки вище на основі стовпця
Припустимо, що в трьох стовпцях є діапазон даних, і тепер ви хочете об’єднати дані вище на основі стовпця C.
1. прес Alt + f11 keys, щоб увімкнути Microsoft Visual Basic для додатків вікно та натисніть Insert > Модулі. Дивіться знімок екрана:
2. Потім вставте код нижче в порожній сценарій. Дивіться знімок екрана:
VBA: Об’єднайте порожнє місце на основі наступного стовпця
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. прес F5 клавішу для запуску коду, а потім вискакує діалогове вікно, щоб нагадати вам вибрати діапазон для роботи. Дивіться знімок екрана:
4. клацання OK, тоді порожні клітинки були об’єднані вище. Дивіться знімок екрана:
Об’єднати пусті клітинки вище (працює лише для одного стовпця)
Ось макрокод, який може об’єднати порожні клітинки вище у вказаному стовпці.
1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно та натисніть Insert > Модулі. Дивіться знімок екрана:
2. Вставте нижче код до сценарію. Дивіться знімок екрана:
VBA: Об’єднайте пусті клітинки вгорі
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. прес F5 для запуску коду, і з'явиться діалогове вікно для вибору діапазону стовпців. Дивіться знімок екрана:
4. Клацніть OK. А порожні клітинки у виділенні були об’єднані вище.
 |
|
 |
Об’єднайте порожні клітинки зліва
Якщо ви хочете об’єднати порожні клітинки, що залишились, наступний код може зробити вам послугу.
1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для програми та натисніть Insert > Модулі. Дивіться знімок екрана:
2. Потім вставте код нижче в порожній сценарій. Дивіться знімок екрана:
VBA: залишити порожні місця зліва
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. прес F5 клавіша для запуску коду, і з'явиться діалогове вікно для вибору діапазону. Дивіться знімок екрана:
4. клацання OK. Порожні комірки були об’єднані зліва.
| Об’єднайте порожні місця вліво | ||
|
|
|
Об’єднати ті самі комірки або об’єднати комірку
|
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
