Turinys
Šioje pamokoje bus pademonstruota 8 naudojimo pavyzdžiai VBA pasirinkti Naudotas diapazonas į Excel stulpelį. Paprastai NaudotasRange excel savybė rodo darbalapio dalį, kurioje yra duomenų. Norėdami aiškiai iliustruoti pavyzdžius, taikysime NaudotasRange savybė konkrečiame duomenų rinkinyje visiems pavyzdžiams.
Atsisiųsti praktikos sąsiuvinį
Praktikos sąsiuvinį galite atsisiųsti iš čia.
VBA pasirinkti UsedRange stulpelyje Column.xlsm8 paprasti VBA pavyzdžiai, kaip stulpelyje pasirinkti UsedRange
Toliau pateiktame paveikslėlyje matome duomenų rinkinį, kurį naudosime visuose pavyzdžiuose. Duomenų rinkinyje yra šie pavadinimai Pardavėjai , jų Vieta , Regionas, ir Bendra suma ' pardavimų. Šiame duomenų rinkinyje naudojamas intervalas bus laikomas įskaitant antraštę. Taigi, šiame duomenų rinkinyje naudojamas intervalas yra ( B2:E15 ).
1. Pasirinkite UsedRange stulpelyje naudodami VBA programoje "Excel
Pirmiausia iš duomenų rinkinio išrinksime visus stulpelius. Tam naudosime VBA pasirinkite NaudotasRange nuosavybė stulpeliuose. Pažiūrėkime, kaip atlikti šį metodą.
ŽINGSNIAI:
- Pirmiausia, dešiniuoju pelės klavišu spustelėkite aktyviajame lape, pavadintame Select_Columns '.
- Be to, pasirinkite parinktį Peržiūrėti kodą '.
- Tuomet atlikus pirmiau minėtą veiksmą atidaromas tuščias VBA to darbalapio kodo langą. Šį kodo langą taip pat galime gauti paspaudę Alt + F11 .
- Toliau tame kodo lange įveskite šį kodą:
Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub
- Po to spustelėkite Paleisti arba paspauskite F5 paleisti kodą.
- Galiausiai gausime tokį rezultatą, kaip šiame paveikslėlyje. Matome, kad dabar pasirinktas naudojamas mūsų duomenų rinkinio stulpelių intervalas.
2. Naudokite VBA, kad nukopijuotumėte visą UsedRange stulpelį
Antrajame pavyzdyje naudosime VBA kopijuoti visą naudojamą stulpelių diapazoną iš mūsų duomenų rinkinio. Paprastai šį metodą naudojame norėdami nukopijuoti konkrečią sritį iš mūsų duomenų rinkinio. Norėdami atlikti šį metodą, turime atlikti toliau nurodytus veiksmus.
ŽINGSNIAI:
- Pirmiausia eikite į aktyvųjį darbalapio skirtuką, pavadintą Kopijuoti '.
- Kitas, dešiniuoju pelės klavišu spustelėkite tame skirtuke ir pasirinkite parinktį Peržiūrėti kodą '.
- Bus atidarytas tuščias VBA Dabartinio darbalapio kodo langas. Kitas būdas gauti šį langą - paspausti Alt + F11 iš klaviatūros.
- Tada į tą kodo langą įterpkite toliau pateiktą kodą:
Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub
- Dabar, norėdami paleisti kodą, spustelėkite Paleisti arba paspauskite F5 raktas.
- Galiausiai matome tokį rezultatą kaip toliau. Be to, aplink naudojamą intervalą matome ribą. Ji rodo, kad kodas nukopijavo duomenis šios ribos viduje.
Skaityti daugiau: "Excel VBA": dinaminio diapazono kopijavimas į kitą sąsiuvinį
3. Suskaičiuokite stulpelių skaičių UsedRange naudodami VBA
Trečiajame pavyzdyje suskaičiuosime stulpelių skaičių savo duomenų rinkinyje naudodami "Excel VBA pasirinkite Naudotas diapazonas metodą stulpelyje. Šiame pavyzdyje pranešimo lange bus grąžintas bendras stulpelių, esančių mūsų duomenų rinkinyje naudojamame intervale, skaičius. Norėdami įvykdyti šį metodą, atlikite toliau nurodytus veiksmus.
ŽINGSNIAI:
- Pirmiausia pasirinkite aktyvųjį lapą, pavadintą Count_Columns '.
- Antra, dešiniuoju pelės klavišu spustelėkite ant aktyvaus lapo pavadinimo ir spustelėkite parinktį Peržiūrėti kodą '.
- Pirmiau pateikta komanda atveria tuščią VBA aktyvaus darbalapio kodo langą. Kodo langą taip pat galime gauti paspaudę Alt + F11 iš klaviatūros.
- Trečia, tame tuščiame kodo lange įveskite šį kodą:
Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub
- Tada spustelėkite Paleisti arba paspauskite F5 paleisti kodą.
- Galiausiai gauname rezultatą pranešimo lange. Naudojamo diapazono stulpelių skaičius yra 4 .
Skaityti daugiau: Kaip naudoti VBA, kad suskaičiuotumėte eilutes diapazone su "Excel" duomenimis (5 makrokomandos)
4. "Excel" VBA skaičiuoti paskutinio stulpelio skaičių naudojamame diapazone
Ankstesniame metode išskyrėme naudojamo intervalo paskutinio stulpelio numerį. Tačiau šiame pavyzdyje nustatysime naudojamo intervalo paskutinio stulpelio numerį visame darbalapyje naudodami VBA pasirinkite NaudotasRange nuosavybė. Pažiūrėkime, kokius veiksmus turime atlikti, kad atliktume šį veiksmą.
ŽINGSNIAI:
- Pirmiausia, dešiniuoju pelės klavišu spustelėkite aktyviajame lape, pavadintame Paskutinis stulpelis '.
- Tada pasirinkite parinktį Peržiūrėti kodą '.
- Taigi, pirmiau pateikta komanda atveria tuščią VBA to darbalapio kodo langą. Alternatyvus būdas atidaryti tą kodo langą yra paspausti Alt + F11 .
- Po to tame kodo lange įterpkite šį kodą:
Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub
- Dabar spustelėkite Paleisti arba paspauskite F5 paleisti kodą.
- Galiausiai gauname rezultatą pranešimo lange. Paskutinis stulpelis naudojamame diapazone yra 5. darbalapio stulpelyje.
Panašūs skaitiniai
- Kaip naudoti VBA kiekvienai "Excel" diapazono eilutei
- Naudokite VBA, norėdami pasirinkti diapazoną iš aktyvios ląstelės "Excel" programoje (3 metodai)
- "Excel" makrokomanda: kelių stulpelių rūšiavimas naudojant dinaminį diapazoną (4 metodai)
5. Pasirinkite paskutinį paskutinio stulpelio langelį iš UsedRange naudodami VBA
Penktajame pavyzdyje naudosime VBA pasirinkite Naudotas diapazonas savybė, kad būtų galima pasirinkti paskutinį "Excel" lapo paskutinio stulpelio langelį. Norėdami iliustruoti šį pavyzdį, toliau naudosime ankstesnį duomenų rinkinį. Dabar apžvelkite šio metodo atlikimo veiksmus.
ŽINGSNIAI:
- Pirmiausia pasirinkite aktyvųjį lapą, pavadintą Paskutinė ląstelė '.
- Kitas, dešiniuoju pelės klavišu spustelėkite ant to lapo pavadinimo. Pasirinkite parinktį Peržiūrėti kodą '.
- Tada gauname tuščią VBA kodo langą. Taip pat galime paspausti Alt + F11 atidaryti tą kodo langą.
- Po to tame kodo lange įveskite šį kodą:
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
- Dabar, norėdami paleisti kodą, spustelėkite Paleisti arba paspauskite F5 .
- Galiausiai rezultatą matome toliau pateiktame paveikslėlyje. Pasirinktas paskutinis paskutinio stulpelio langelis yra langelis E15 .
6. Raskite pasirinkto langelio UsedRange ląstelių diapazoną naudodami "Excel VBA
Šiame pavyzdyje taikysime VBA surasti pasirinkto naudojamo Excel darbalapio langelio langelių diapazoną. Naudosime VBA kodą visiems mūsų naudojamo diapazono stulpeliams. Kodas grąžins ląstelių diapazoną ir naudojamo diapazono stulpelio adresą. Šiam veiksmui atlikti atlikite toliau nurodytus veiksmus.
ŽINGSNIAI:
- Pradžioje, dešiniuoju pelės klavišu spustelėkite aktyvaus lapo skirtuke, pavadintame Rasti ląstelių diapazoną '.
- Antra, pasirinkite parinktį Peržiūrėti kodą '.
- Bus atidarytas tuščias VBA Kitas būdas atidaryti šį kodo langą - paspausti Alt + F11 .
- Trečia, tame kodo lange įveskite šį kodą:
Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub
- Tada, norėdami paleisti kodą, spustelėkite Paleisti arba paspauskite F5 raktas.
- Galiausiai rezultatas pateikiamas tokiame pranešimo lange, kaip toliau pateiktame paveikslėlyje.
Panašūs skaitiniai
- VBA ciklas per "Excel" eilutes ir stulpelius (5 pavyzdžiai)
- Kaip konvertuoti diapazoną į masyvą "Excel VBA" (3 būdai)
7. Įterpkite VBA savybę UsedRange, kad suskaičiuotumėte tuščias ląsteles
Šiame pavyzdyje naudosime VBA pasirinkite NaudotasRange savybė skaičiuoti tuščius Excel lapo langelius. Kartais mūsų duomenų rinkinio naudojamame diapazone gali būti tuščių langelių. Šių tuščių langelių skaičių galime lengvai suskaičiuoti naudodami NaudotasRange nuosavybė. Pažiūrėkime, kaip atlikti šį pavyzdį.
ŽINGSNIAI:
- Pirma, dešiniuoju pelės klavišu spustelėkite aktyvaus lapo skirtuke, pavadintame Tuščios ląstelės '.
- Tada pasirinkite parinktį Peržiūrėti kodą '.
- Atlikus šį veiksmą atidaromas tuščias VBA Alternatyvus būdas atidaryti šį kodo langą - paspausti Alt + F11 .
- Tuomet į tą kodo langą įterpkite šį kodą:
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 "Iš viso naudojamų langelių skaičius 4 naudojamuose stulpeliuose yra " & d & amp; d & _ " ir iš jų " & _ j & " ląstelės yra tuščios." End Sub
- Po to spustelėkite Paleisti arba paspauskite F5 paleisti kodą.
- Galiausiai gausime rezultatą pranešimo lange. Pranešimo lange bus rodomas visų langelių ir tuščių langelių skaičius mūsų naudojamame diapazone.
8. VBA UsedRange pirmajam tuščiam langeliui "Excel" stulpelyje rasti
Paskutiniame pavyzdyje naudosime "Excel VBA pasirinkti Naudotas diapazonas savybė stulpelyje, kad būtų galima rasti pirmą tuščią ląstelę mūsų "Excel" darbalapyje. Šis metodas suras pirmą tuščią tam tikro stulpelio ląstelę. Tuščia ląstelė visada bus už duomenų rinkinio naudojamo diapazono ribų. Taigi, jei kuri nors ląstelė yra tuščia arba tuščia naudojamame diapazone, ji nebus laikoma šiuo metodu. Dabar atlikite toliau nurodytus veiksmus, kad atliktumėte šį metodą.
ŽINGSNIAI:
- Pirmiausia, dešiniuoju pelės klavišu spustelėkite aktyvaus lapo skirtuke, pavadintame First_Empty '.
- Be to, pasirinkite parinktį Peržiūrėti kodą '.
- Bus atidarytas tuščias VBA kodo langą. Taip pat galime paspausti Alt + F11 atidaryti tą kodo langą.
- Be to, į tuščią langelį įveskite šį kodą VBA kodo langas:
Public Sub First_Empty_Cell() ActiveSheet.Range("E" & amp; ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub
- Tada, norėdami paleisti kodą, spustelėkite Paleisti arba paspauskite F5 raktas.
- Galiausiai, pagal pirmiau pateiktą kodą bus įterpta reikšmė FirstEmptyCell ' ląstelėje E16 Tai pirmas tuščias stulpelio langelis E po naudojamo duomenų rinkinio diapazono.
Skaityti daugiau: "Excel" VBA ciklas per diapazoną, kol bus tuščias langelis (4 pavyzdžiai)
Išvada
Trumpai tariant, šioje pamokoje parodyta 8 pavyzdžių, kaip naudoti VBA pasirinkite NaudotasRange savybė "Excel" lape. Norėdami išbandyti savo įgūdžius, atsisiųskite šiame straipsnyje naudotą praktinę lentelę. Jei turite klausimų, komentuokite toliau esančiame laukelyje. Mūsų komanda pasistengs kuo greičiau atsakyti į jūsų pranešimą. Sekite daugiau naujoviškų "Microsoft Excel sprendimus ateityje.