Jak automaticky sloučit prázdné buňky nad / vlevo v aplikaci Excel?
V tomto článku budu hovořit o slučování prázdných buněk nahoře nebo vlevo automaticky, jak je ukázáno níže. Ve skutečnosti neexistuje žádný vestavěný nástroj, který by tento úkol zvládl, ale kódy maker ano.
Sloučit mezery výše | ||
Sloučit mezery vlevo | ||
Sloučit prázdné buňky výše na základě sloupce
Sloučit prázdné buňky výše (funguje pouze pro jeden sloupec)
Sloučit prázdné buňky výše na základě sloupce
Předpokládejme, že existuje řada dat ve třech sloupcích a nyní chcete sloučit výše uvedená data na základě sloupce C.
1. lis Alt + F11 kpro povolení Microsoft Visual Basic pro aplikace okno a klikněte na Vložit > Modul. Viz snímek obrazovky:
2. Potom vložte níže uvedený kód do prázdného skriptu. Viz screenshot:
VBA: Sloučit prázdné výše na základě dalšího sloupce
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. lis F5 spusťte kód a poté se zobrazí dialogové okno, které vám připomene, abyste vybrali rozsah, který má fungovat. Viz screenshot:
4. cvaknutí OK, pak byly prázdné buňky sloučeny výše. Viz screenshot:
Sloučit prázdné buňky výše (funguje pouze pro jeden sloupec)
Zde je kód makra, který může sloučit prázdné buňky výše v zadaném sloupci.
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno a klikněte na Vložit > Modul. Viz snímek obrazovky:
2. Vložte níže uvedený kód do skriptu. Viz screenshot:
VBA: Sloučit prázdné buňky výše
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. lis F5 klíč ke spuštění kódu a zobrazí se dialogové okno pro výběr rozsahu sloupců. Viz screenshot:
4. Klepněte na OK. A prázdné buňky ve výběru byly sloučeny výše.
Sloučit prázdné buňky vlevo
Pokud chcete sloučit prázdné buňky, které vám zbývají, můžete si udělat laskavost pomocí následujícího kódu.
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic v okně Aplikace a klikněte na Vložit > Modul. Viz snímek obrazovky:
2. Potom vložte níže uvedený kód do prázdného skriptu. Viz screenshot:
VBA: Sloučit mezery vlevo
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. lis F5 spusťte kód a zobrazí se dialogové okno pro výběr rozsahu. Viz screenshot:
4. cvaknutí OK. Prázdné buňky byly sloučeny vlevo.
Sloučit mezery vlevo | ||
Sloučit stejné buňky nebo sloučit buňku
|
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!