UsedRange - Etsi viimeksi käytetty solu, sarake tai rivi
Seuraava koodi palauttaa viestiruudun, joka ilmoittaa laskentataulukossa käytettyjen rivien kokonaismäärän. Tyhjiä rivejä pidetään käytettyinä, jos tiedot seuraavat tyhjää riviä.
| 1 | MsgBox ActiveSheet.UsedRange.Rows.Count |
Onko sinun suoritettava silmukka arkille, mutta et tiedä, missä tiedot pysähtyvät? ActiveSheet.UsedRange.Rows.Count saattaa auttaa.
Laita tämä moduuliin:
| 123456789 | Sub LastRow ()Dim LastRow kokonaislukunaLastRow = ActiveSheet.UsedRange.Rows.CountMsgBox LastRowEnd Sub |
| 123456789 | Osa LastCol ()Dim LastCol kokonaislukunaLastCol = ActiveSheet.UsedRange.Col.CountMsgBox LastColEnd Sub |
Etsi ensimmäinen tyhjä solu
VBA: n avulla sinun on ehkä kirjoitettava ensimmäiseen tyhjään soluun tai sarakkeen viimeisen rivin jälkeen. Sinun ei tarvitse silmukata löytääksesi tämän, seuraava koodi tekee sen puolestasi.
Tässä esimerkissä koodi kirjoittaa "FirstEmpty" sarakkeen "d" ensimmäiseen tyhjään soluun
| 1234 | Julkinen osa AfterLast ()ActiveSheet.Range ("d" & ActiveSheet.Rows.Count) .End (xlUp) .Offset (1, 0) .Value = "FirstEmpty"End Sub |
Laske laskentataulukon käytetyt sarakkeet
Seuraava koodi palauttaa viestiruudussa laskentataulukossa käytettyjen sarakkeiden kokonaismäärän. Tyhjiä sarakkeita pidetään käytettyinä, jos tiedot seuraavat tyhjää saraketta.
| 1 | MsgBox ActiveSheet.UsedRange.Columns.Count |
Viimeksi käytetty solu - Ongelmia
Kun tarvitsen… Seuraava… Selaa koko sarake läpi Käytän yleensä ActiveSheet.UsedRange.Rows.Count -pysähdyspaikkaa. Minulla on aina ollut onnea tämän lähestymistavan kanssa.
Olen myös tietoinen siitä, että joskus Excel luulee, että viimeinen rivi on jossain, mutta rivi on itse asiassa tyhjä. Olen nähnyt tämän muutaman kerran tietojen tuonnin jälkeen. BeyondTechnology:
Laskentataulukko -objekti Käytetty alue ei aina toimi, koska laskentataulukon käytetty alue (tai "likainen alue") voi olla suurempi kuin tietueidesi todellisuudessa täyttämä alue.
