Hvordan flettes blanke celler automatisk over / venstre i Excel?
I denne artikel vil jeg tale om at flette tomme celler over eller venstre automatisk som vist nedenfor. Faktisk er der intet indbygget værktøj, der kan håndtere denne opgave, men makrokoderne kan.
Flet emner ovenfor | ||
Flet emner tilbage | ||
Flet blanke celler ovenfor baseret på en kolonne
Flet blanke celler ovenfor (fungerer kun i en enkelt kolonne)
Flet blanke celler ovenfor baseret på en kolonne
Antag at der er en række data i tre kolonner, og nu vil du flette dataene ovenfor baseret på kolonne C.
1. Trykke Alt + F11 keys for at aktivere Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler. Se skærmbillede:
2. Indsæt derefter koden under det tomme script. Se skærmbillede:
VBA: Flet tomt ovenfor baseret på næste kolonne
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. Trykke F5 nøgle for at køre koden, og derefter vises en dialogboks, der minder dig om at vælge et interval, der skal arbejdes. Se skærmbillede:
4. klik OK, så er de tomme celler blevet flettet ovenfor. Se skærmbillede:
Flet blanke celler ovenfor (fungerer kun i en enkelt kolonne)
Her er en makrokode, der kan flette de tomme celler ovenfor i den angivne kolonne.
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler. Se skærmbillede:
2. Indsæt nedenstående kode i scriptet. Se skærmbillede:
VBA: Flet blanke celler ovenfor
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. Trykke F5 for at køre koden, og der vises en dialogboks, hvor du kan vælge et kolonneområde. Se skærmbillede:
4. Klik på OK. Og de tomme celler i markeringen er blevet flettet ovenfor.
Flet blanke celler tilbage
Hvis du vil flette tomme celler tilbage, kan følgende kode gøre dig en tjeneste.
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic for applikationsvinduet, og klik på indsatte > Moduler. Se skærmbillede:
2. Indsæt derefter koden under det tomme script. Se skærmbillede:
VBA: Flet emner tilbage
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. Trykke F5 for at køre koden, og der vises en dialogboks, hvor du kan vælge et interval. Se skærmbillede:
4. klik OK. De tomme celler er blevet flettet til venstre.
Flet emner tilbage | ||
Flet de samme celler eller flet cellen op
|
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!