5 nopeaa tapaa erittää useita rivejä tai sarakkeita Word-taulukkoon

Tässä artikkelissa haluaisimme näyttää sinulle viisi nopeaa tapaa erän poistaa useita rivejä tai sarakkeita Word-taulukosta.

Laitamme tietoja taulukoihin, jotta asiakirja olisi helppo nähdä. Ei ole harvinaista luoda pitkä pöytä. Kun kuitenkin tarkistat taulukon uudelleen ja löydät joitain rivejä ja sarakkeita tarpeettomiksi, tarvitset nopean tavan poistaa ne.

Tarkastellaan ensin tapoja poistaa useita peräkkäisiä rivejä tai sarakkeita.

Tapa 1: Poista rivit tai sarakkeet asiayhteysvalikosta

1. Ensinnäkin, valitse sarja rivejä tai sarakkeita ja napsauta hiiren kakkospainikkeella.
2. Valitse sitten Poista rivit tai Poista sarakkeet vastaavasti.    
3. Tai voit valita rivejä tai sarakkeita ja napsauttaa "Asettelu".
4. Valitse sitten Poista ja valitse Poista sarakkeet tai Poista rivit.

Tapa 2: Käytä pikakuvakkeita

1. Valitse ensin rivit tai sarakkeet.
2. Toiseksi paina "askelpalautinta".

Jos sarakkeet tai rivit eivät ole peräkkäisiä, emme voi poistaa niitä yllä olevilla menetelmillä. Sen sijaan voit ottaa käyttöön seuraavat menetelmät.

Tapa 3: Liitä tarpeettomat rivit tai sarakkeet yhteen

1. Valitse ensin rivi tai sarake.
2. Napsauta sitten hiirtä ja pidä kiinni.
3. Vedä hiiri oikeaan asentoon ja vapauta se.
4. Valitse sitten kaikki kohderivit tai -sarakkeet ja poista ne yllä olevilla tavoilla.

Tapa 4: Suorita makro poistaaksesi useita peräkkäisiä rivejä

1. Ensinnäkin, valitse rivit.
2. Avaa VBA-editori Wordissa painamalla ”Alt + F11”.
3. Luo sitten moduuli napsauttamalla “Normaali” -projektia.
4. Napsauta sitten “Lisää” ja valitse ”Moduuli”.
5. Avaa moduuli kaksoisnapsauttamalla ja liitä seuraavat koodit:

Sub DeleteNonConsecutiveRows()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nRows As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected rows.
  Selection.Delete
 
  With Selection.Tables(1)
    nRows = .Rows.Count
    For nIndex = nRows To 1 Step -1
      For Each objCell In .Rows(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Rows(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

6. Viimeisenä mutta ei vähäisimpänä, napsauta "Suorita" tai paina "F5".

Tapa 5: Suorita makro poistaaksesi useita ei-peräkkäisiä sarakkeita

1. Valitse ensin kohdesarakkeet Ctrl-näppäimellä.
2. Seuraava asenna ja suorita makro noudattamalla tarkalleen samoja vaiheita yllä.
3. Mutta korvaa makro tällä:

Sub DeleteNonConsecutiveColumns()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nColumns As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected columns.
  Selection.Delete
 
  With Selection.Tables(1)
    nColumns = .Columns.Count
    For nIndex = nColumns To 1 Step -1
 
      For Each objCell In .Columns(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Columns(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

Varo asiakirjojen vioittumista

Digitaalisen tallennuslaitteen käytön lisääntyessä on tärkeää huolehtia tiedoista. Yksi parhaista tavoista on varmuuskopioida ne. Esimerkiksi Wordia käytettäessä se voi lakata vastaamasta yhtäkkiä. Ja kun se on palannut normaaliksi, löydät asiakirjan vain kuolleena. Ja sitten sinun on mentävä läpi kaikki melu docx-palautus.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xlsx-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com