Tämä opetusohjelma osoittaa 8 esimerkkejä käytöstä VBA valitsemaan Käytetty Valikoima excelin sarakkeessa. Yleisesti ottaen UsedRange ominaisuus edustaa Excelissä sitä työarkin osaa, jossa on tietoja. Esimerkkien havainnollistamiseksi käytämme esimerkkejä selkeästi UsedRange ominaisuus tietyssä tietokokonaisuudessa kaikkien esimerkkien osalta.

Lataa harjoituskirja

Voimme ladata harjoitustyökirjan täältä.

8 Helppoja esimerkkejä VBA:n käytöstä sarakkeen UsedRange-valinnassa

Seuraavassa kuvassa näkyy tietokokonaisuus, jota käytämme kaikissa esimerkeissä. Tietokokonaisuus sisältää seuraavien nimiä Myyjät , heidän Sijainti , Alue, ja ' Kokonaismäärä Tässä tietokokonaisuudessa käytetyn alueen katsotaan sisältävän myös otsikon. Seuraavassa tietokokonaisuudessa käytetty alue on siis ( B2:E15 ).

1. Valitse UsedRange sarakkeessa VBA: lla Excelissä

Ensinnäkin valitsemme kaikki sarakkeet tietokokonaisuudestamme. Tätä varten käytämme komentoa VBA valitse UsedRange ominaisuutta sarakkeissa. Katsotaanpa, miten tämä menetelmä suoritetaan.

VAIHEET:

• Aluksi, klikkaa hiiren oikealla aktiivisella arkilla nimeltä ' Valitse_Columns '.
• Valitse lisäksi vaihtoehto ' Näytä koodi '.

• Sitten edellä mainittu toiminto avaa tyhjän VBA koodi-ikkuna kyseiselle laskentataulukkoon. Koodi-ikkunan saa myös painamalla näppäintä Alt + F11 .
• Kirjoita seuraavaksi seuraava koodi koodi-ikkunaan:

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

• Napsauta sen jälkeen Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Lopuksi saamme seuraavan kuvan mukaisen tuloksen. Näemme, että käytetty sarakkeiden alue on nyt valittu tietokokonaisuudestamme.

2. Kopioi koko UsedRange sarakkeessa VBA:n avulla.

Toisessa esimerkissä käytämme VBA kopioidaksemme koko käytetyn sarakkeiden alueen tietokokonaisuudestamme. Yleensä käytämme tätä menetelmää kopioidaksemme tietyn alueen tietokokonaisuudestamme. Meidän on noudatettava alla olevia ohjeita tämän menetelmän suorittamiseksi.

VAIHEET:

• Siirry ensin aktiivisen laskentataulukon välilehdelle nimeltä Kopioi '.
• Seuraava, klikkaa hiiren oikealla välilehdellä ja valitse vaihtoehto ' Näytä koodi '.

• Se avaa tyhjän VBA koodi-ikkuna nykyiselle työarkille. Toinen tapa saada tämä ikkuna näkyviin on painaa näppäintä Alt + F11 näppäimistöltä.
• Lisää sitten alla oleva koodi tähän koodiikkunaan:

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• Nyt voit suorittaa koodin napsauttamalla Suorita tai paina F5 avain.

• Lopulta näemme tuloksen seuraavanlaisena. Näemme myös rajan käytetyn alueen ympärillä. Se osoittaa, että koodi on kopioinut tietoja tämän rajan sisäpuolelle.

Lue lisää: Excel VBA: Dynaamisen alueen kopiointi toiseen työkirjaan

3. Lasketaan sarakkeiden määrä UsedRange-luokassa VBA:n avulla.

Kolmannessa esimerkissä laskemme tietokokonaisuutemme sarakkeiden lukumäärän excelin avulla. VBA valitse Käytetty Valikoima metodia sarakkeessa. Tämä esimerkki palauttaa viestiruudussa käytetyn alueen sisällä olevien sarakkeiden kokonaismäärän tietokokonaisuudessamme. Suorita tämä metodi noudattamalla alla olevia ohjeita.

VAIHEET:

• Valitse ensin aktiivinen arkki nimeltä ' Count_Columns '.
• Toiseksi, klikkaa hiiren oikealla aktiivisen arkin nimen päällä ja napsauta vaihtoehtoa ' Näytä koodi '.

• Yllä oleva komento avaa tyhjän VBA aktiivisen työarkin koodiikkunan. Koodi-ikkunan saa näkyviin myös painamalla painiketta Alt + F11 näppäimistöltä.
• Kolmanneksi syötä seuraava koodi tyhjään koodiikkunaan:

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• Napsauta seuraavaksi Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Lopuksi saamme tuloksen viestikenttään. Käytetyn alueen sarakkeiden määrä on seuraava 4 .

Lue lisää: VBA:n käyttäminen rivien laskemiseen Excelin tietojen kanssa (5 makroa)

4. Excel VBA laskemaan käytetyn alueen viimeisen sarakkeen lukumäärää

Edellisessä menetelmässä poimimme käytetyn alueen viimeisen sarakkeen numeron. Tässä esimerkissä määritämme kuitenkin käytetyn alueen viimeisen sarakkeen numeron koko laskentataulukon osalta käyttämällä komentoa VBA valitse UsedRange omaisuutta. Katsotaanpa, mitä vaiheita meidän on noudatettava tämän toiminnon suorittamiseksi.

VAIHEET:

• Aluksi, klikkaa hiiren oikealla aktiivisella arkilla nimeltä ' Viimeinen sarake '.
• Valitse seuraavaksi vaihtoehto ' Näytä koodi '.

• Yllä oleva komento avaa siis tyhjän VBA Vaihtoehtoinen tapa avata kyseinen koodiikkuna on painaa näppäintä Alt + F11 .
• Lisää sen jälkeen seuraava koodi kyseiseen koodiikkunaan:

 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub 

• Napsauta nyt Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Lopulta saamme tuloksemme viestiruutuun. Käytetyn alueen viimeinen sarake on sarake 5. sarakkeeseen.

Samanlaisia lukemia

• VBA:n käyttäminen Excelin jokaisen rivin alueella Excelissä
• Käytä VBA: ta valita alue aktiivisesta solusta Excelissä (3 menetelmää)
• Excel-makro: Lajittele useita sarakkeita dynaamisella alueella (4 menetelmää)

5. Valitse viimeisen sarakkeen viimeinen solu UsedRange-alueesta VBA:lla.

Viidennessä esimerkissä käytämme VBA valitse Käytetty Valikoima ominaisuuden avulla voit valita Excel-taulukon viimeisen sarakkeen viimeisen solun. Esimerkin havainnollistamiseksi jatkamme edellisellä tietokokonaisuudellamme. Katso nyt tämän menetelmän tekemisen vaiheita.

ASKELEET:

• Valitse ensin aktiivinen arkki nimeltä ' Last_Cell '.
• Seuraava, klikkaa hiiren oikealla Valitse vaihtoehto Näytä koodi '.

• Sitten saamme tyhjän VBA koodi-ikkunassa. Voimme myös painaa Alt + F11 avataksesi kyseisen koodiikkunan.
• Kirjoita sen jälkeen seuraava koodi koodi-ikkunaan:

 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Select Selection.Cells(wrow, wcol).Select End Sub 

• Nyt voit suorittaa koodin napsauttamalla Suorita tai paina F5 .

• Lopuksi näemme tuloksen seuraavassa kuvassa. Viimeisen sarakkeen viimeinen solu on valittu solu nimeltä E15 .

6. Etsi valitun UsedRange-solualueen soluväli Excel VBA:lla.

Tässä esimerkissä sovellamme VBA löytää valitun käytetyn alueen soluväli excel-taulukossa. Käytämme komentoa VBA koodi kaikille käytetyn alueen sarakkeille. Koodi palauttaa solualueen sekä käytetyn alueen sarakkeen osoitteen. Suorita tämä toiminto noudattamalla alla olevia ohjeita.

ASKELEET:

• Alussa, klikkaa hiiren oikealla aktiivisella välilehdellä nimeltä ' Etsi soluväli '.
• Toiseksi, valitse vaihtoehto ' Näytä koodi '.

• Se avaa tyhjän VBA Toinen tapa avata tämä koodiikkuna on painaa näppäintä Alt + F11 .
• Kolmanneksi kirjoita seuraava koodi koodi-ikkunaan:

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• Suorita koodi napsauttamalla sitten Suorita tai paina F5 avain.

• Lopulta tuloksen näyttää seuraavan kuvan kaltainen viestiruutu.

Samanlaisia lukemia

• VBA Excelin rivien ja sarakkeiden läpikäyminen (5 esimerkkiä)
• Kuinka muuntaa alue Excel VBA: n monisteeksi (3 tapaa)

7. Lisää VBA UsedRange -ominaisuus tyhjien solujen laskemiseksi.

Tässä esimerkissä käytämme VBA valitse UsedRange ominaisuuden avulla voimme laskea tyhjät solut Excel-taulukossa. Joskus meillä saattaa olla tyhjiä soluja tietokokonaisuutemme käytetyllä alueella. Voimme helposti laskea näiden tyhjien solujen lukumäärän käyttämällä ominaisuutta UsedRange omaisuus. Katsotaanpa, miten tämä esimerkki suoritetaan.

VAIHEET:

• Ensimmäinen, klikkaa hiiren oikealla aktiivisella välilehdellä nimeltä ' Tyhjät_Cells '.
• Valitse seuraavaksi vaihtoehto ' Näytä koodi '.

• Yllä oleva toiminto avaa tyhjän VBA Vaihtoehtoinen tapa avata koodiikkuna on painaa näppäintä Alt + F11 .
• Lisää sitten seuraava koodi kyseiseen koodiikkunaan:

 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Käytettyjen solu(ide)jen kokonaismäärä neljässä käytetyssä sarakkeessa on " & d & _ _ " ja niistä " & _ j & " solu(ide)t ovat tyhjiä." End Sub 

• Napsauta sen jälkeen Suorita tai paina F5 näppäimellä koodin suorittamiseksi.

• Lopuksi saamme tuloksen viestiruutuun. Viestiruutu näyttää käytettyjen solujen ja tyhjien solujen lukumäärän.

8. VBA UsedRange Excelin sarakkeen ensimmäisen tyhjän solun paikantamiseksi Excelissä

Viimeisessä esimerkissä käytämme excel-ohjelmaa VBA valitsemaan Käytetty Valikoima ominaisuutta sarakkeessa ensimmäisen tyhjän solun löytämiseksi Excel-taulukossamme. Tämä menetelmä etsii tietyn sarakkeen ensimmäisen tyhjän solun. Tyhjä solu on aina tietokokonaisuuden käytetyn alueen ulkopuolella. Joten jos jokin solu on tyhjä tai tyhjä käytetyllä alueella, sitä ei oteta huomioon tässä menetelmässä. Seuraa alla olevia ohjeita tämän menetelmän suorittamiseksi.

VAIHEET:

• Aluksi, klikkaa hiiren oikealla aktiivisella välilehdellä nimeltä ' First_Empty '.
• Valitse lisäksi vaihtoehto ' Näytä koodi '.

• Se avaa tyhjän VBA koodi-ikkunassa. Voimme myös painaa Alt + F11 avataksesi kyseisen koodiikkunan.
• Kirjoita lisäksi seuraava koodi tyhjään kenttään VBA koodiikkuna:

 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub 

• Suorita koodi napsauttamalla sitten Suorita tai paina F5 avain.

• Lopuksi yllä oleva koodi lisää arvon ' FirstEmptyCell ' solussa E16 Se on sarakkeen ensimmäinen tyhjä solu E tietokokonaisuuden käytetyn alueen jälkeen.

Lue lisää: Excel VBA alueen läpikäymiseen tyhjään soluun asti (4 esimerkkiä)

Päätelmä

Lyhyesti sanottuna tämä opetusohjelma näyttää seuraavat asiat 8 esimerkkejä VBA valitse UsedRange ominaisuuden Excel-taulukkoon. Jos haluat testata taitojasi, voit ladata tässä artikkelissa käytetyn harjoitustyöarkin. Voit vapaasti kommentoida alla olevaan laatikkoon, jos sinulla on kysyttävää. Tiimimme pyrkii vastaamaan viestiisi mahdollisimman pian. Pidä silmällä lisää innovatiivisia artikkeleita. Microsoft Excel ratkaisuja tulevaisuudessa.