Как автоматично да обединявам празни клетки отгоре/вляво в Excel?
В тази статия ще говоря за автоматично обединяване на празни клетки отгоре или отляво, както е показано на екранната снимка по-долу. Всъщност няма вградена програма, която да може да се справи с тази задача, но макро кодовете могат.
| Обединете празните места отгоре | ||
 |
 |
 |
| Обединете празни места вляво | ||
 |
|
 |
Обединяване на празни клетки по-горе въз основа на колона
Обединяване на празни клетки по-горе (работи само за една колона)
Обединяване на празни клетки отляво
Обединяване на празни клетки по-горе въз основа на колона
Да предположим, че има набор от данни в три колони и сега искате да обедините данните по-горе въз основа на колона C.
1. Натиснете Alt + F11 kбутони за активиране на Microsoft Visual Basic за приложения прозорец и щракнете Поставете > Модули. Вижте екранна снимка:
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 за приложения прозорец и щракнете Поставете > Модули. Вижте екранна снимка:
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 за прозореца на приложенията и щракнете Поставете > Модули. Вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!
