Microsoft Office Word gir ikke en enkel måte å fjerne tomme rader og kolonner, og du må fjerne dem ved å manuelt velge hver tom rad og kolonne og deretter slette dem en etter en
Trinn 1:. Velg den tomme raden eller tom kolonnen du vil slette. Se skjermbilde:
Trinn 3: Under Tabellverktøy, klikk på Layout Tab;
Trinn 4: I rader og amp; Kolonner gruppe, klikker du Slett rader eller Slett kolonner.
Fjern alle tomme rader og kolonner fra tabeller ved hjelp av VBA-kode
Macro funksjon av Word gir en mye mer praktisk måte å fjerne alle tomme rader og kolonner fra tabeller i dokumentet. Du kan fjerne alle tomme rader og kolonner som følger
Trinn 1: Trykk "Alt-F11" for å åpne Microsoft Visual Basic for Application vinduet;
Trinn 2:. Klikk Module på Insert fane, kopiere og lime inn følgende VBA kode i Module vinduet;
Trinn 3: Deretter klikker du Kjør knappen for å bruke VBA
VBA-kode for å fjerne alle tomme rader og kolonner fra tabeller. : Kutools for Word gir deg den mest praktiske måten å fjerne alt tomme rader og kolonner fra tabeller i dokumentet. Du trenger bare å klikke én gang, og Kutools for Word vil fjerne alle tomme rader og kolonner fra tabellen for deg raskt. Kutools for Word, en hendig add-in, omfatter grupper av verktøy for å lette din jobbe og forbedre evnen til behandling Word-dokument. Gratis prøveversjon i 45 dager! Få det nå Klikk Kutools > Fjern tomme rader og Cols på Tabell-panelet. Kutools for Word vil fjerne alle tomme rader og kolonner fra tabeller til hele dokumentet eller den delen du har valgt. For mer detaljert informasjon om Fjern tomme rader Cols av Kutools for Word, vennligst besøk: Fjern tomme rader Cols funksjonen beskrivelse
Sub DeleteEmptyTablerowsandcolumns ()
Application.ScreenUpdating = False
Dim Tbl Som tabell, cel Som Cell, jeg As Long, n As Long, fEmpty As Boolean
Med ActiveDocument
For Hver Tbl I .Tables
n = Tbl.Columns.Count
For i = n Til ett trinn -1
< em> fEmpty = True
For Hver cel I Tbl.Columns (i) .Cells
Hvis Len (cel.Range.Text) > 2 Deretter
fEmpty = False
Exit For
End If
Neste cel
Hvis fEmpty = True Deretter Tbl.Columns ( i) .Delete
Neste i
Neste Tbl
End Med
Med ActiveDocument
For Hver Tbl I .Tables
n = Tbl.Rows.Count
For i = n Til ett trinn -1
fEmpty = true
For Hver cel I Tbl.Rows (i ) .Cells
Hvis Len (cel.Range.Text) > 2 Deretter
fEmpty = False
Exit For
End If
Neste cel
Hvis fEmpty = True Deretter Tbl.Rows ( i) .Delete
Neste i
Neste Tbl
End Med
Sett cel = Nothing: Set Tbl = Ingenting
Application .ScreenUpdating = True
End Sub
Fjern alle tomme rader og kolonner fra tabeller med ett klikk
.