Tämä opetusohjelma näyttää erilaisia tapoja poistaa rivit ja sarakkeet Excelissä VBA: n avulla.
Poista koko rivi tai sarake
Jos haluat poistaa koko rivin VBA: sta, käytä tätä koodiriviä:
1 | Rivit (1) Poista |
Huomaa, että käytämme Poistaa tapa poistaa rivi.
Sen sijaan, että viittaisi Rivien objekti, voit viitata riveihin niiden perusteella Alueobjekti kanssa Koko rivi:
1 | Alue ("a1") .EtireRow.Delete |
Jos haluat poistaa koko sarakkeen, käytä näitä koodirivejä:
1 | Sarakkeet (1) Poista |
1 | Alue ("a1"). Koko sarake.Poista |
Poista useita rivejä tai sarakkeita
Samaa logiikkaa käyttämällä voit myös poistaa useita rivejä kerralla:
1 | Rivit ("1: 3"). Poista |
tai sarakkeet:
1 | Sarakkeet ("A: C"). Poista |
Huomaa, että tässä viitataan tiettyihin lainausmerkkien ympäröimiin rivien ja sarakkeiden numeroihin / kirjaimiin.
Voit tietysti myös viitata alueen koko riviin:
1 | Alue ("a1: a10"). EntireRow.Delete |
Huomautus: Alla olevat esimerkit osoittavat vain rivien poistamista, mutta kuten yllä näet, syntaksi on käytännössä identtinen sarakkeiden poistamisen kanssa.
Poista tyhjät / tyhjät rivit
Tämä esimerkki poistaa rivin, jos koko rivi on tyhjä:
1234567891011 | Sub DeleteRows_EntireRowBlank ()Himmennä solu alueenaJokaiselle alueen solulle ("b2: b20")Jos Application.WorksheetFunction.CountA (cell.EntireRow) = 0 Sittencell.EntireRow.DeleteLoppu JosSeuraava soluEnd Sub |
Se käyttää Excel -laskentataulukkotoimintoa: COUNTA.
Poista rivi, jos solu on tyhjä
Tämä poistaa rivin, jos kyseisen rivin sarake on tyhjä (tässä tapauksessa sarake B):
1 | Alue ("b3: b20"). SpecialCells (xlCellTypeBlanks) .EntireRow.Delete |
Poista rivi solun arvon perusteella
Tämä kiertää alueen läpi ja poistaa rivejä, jos tietyn rivin soluarvo sanoo "poista".
1234567891011 | Sub DeleteRowswithSpecificValue ()Himmennä solu alueenaJokaiselle alueen solulle ("b2: b20")Jos cell.Value = "poista" Sittencell.EntireRow.DeleteLoppu JosSeuraava soluEnd Sub |
Lisää Poista rivi- ja sarakeesimerkkejä
Poista päällekkäiset rivit
Tämä koodi poistaa kaikki päällekkäiset rivit alueelta:
1 | Alue ("b2: c100"). RemoveDuplicates Sarakkeet: = 2 |
Huomaa, että asetamme sarakkeet: = 2. Tämä kehottaa VBA: ta tarkistamaan molemmat kaksi ensimmäistä datasaraketta harkittaessa, ovatko rivit kaksoiskappaleita. Kaksoiskappale löytyy vain, jos molemmissa sarakkeissa on päällekkäisiä arvoja.
Jos olisimme asettaneet tämän arvoksi 1, vain ensimmäiseltä riviltä olisi tarkistettu päällekkäiset arvot.
Poista taulukon rivit
Tämä koodi poistaa taulukon toisen rivin viittaamalla ListObjectsiin.
1 | ThisWorkbook.Sheets ("Sheet1"). ListObjects ("list1"). ListRows (2) .Delete |
Poista suodatetut rivit
Jos haluat poistaa vain suodattamisen jälkeen näkyvät rivit:
1 | Alue ("b3: b20"). SpecialCells (xlCellTypeVisible) .EntireRow.Delete |
Poista rivit alueelta
Tämä koodi poistaa kaikki alueen rivit:
1 | Alue ("a1: a10"). EntireRow.Delete |
Poista valitut rivit
Tämä koodi poistaa kaikki valitut rivit:
1 | Valinta.Koko rivi.Poista |
Poista viimeinen rivi
Tämä poistaa viimeksi käytetyn rivin sarakkeesta B:
1 | Solut (Rivid.Count, 2) .End (xlUp) .EntireRow.Delete |
Muuttamalla 2 arvoon 1 voit poistaa viimeksi käytetyn rivin sarakkeesta A jne.
1 | Solut (Rivid.Count, 1) .End (xlUp) .EntireRow.Delete |
Poista sarakkeet numeroittain
Jos haluat poistaa sarakkeen numeron perusteella, käytä seuraavaa koodia:
1 | Sarakkeet (2) Poista |