Як автоматично об’єднати порожні клітинки над / зліва в 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. Порожні комірки були об’єднані зліва.
| Об’єднайте порожні місця вліво | ||
|
|
|
Об’єднати ті самі комірки або об’єднати комірку
|
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
