Atunci când aveți un tabel de date mic cu câteva coloane, le puteți număra cu ușurință pe toate. Dar pentru un tabel de date mare, este destul de dificil să numărați toate coloanele fără nicio eroare. În plus, unele coloane pot conține date, în timp ce unele coloane pot fi complet goale. Astfel, numărarea tuturor coloanelor cu date în cazul unui tabel de date mare este destul de dificilă. În acest articol, veți învăța 2 moduri de a număracoloane cu date utilizând VBA în Excel cu ușurință.

Descărcați caietul de practică

Puteți descărca fișierul Excel de la următorul link și puteți exersa împreună cu el.

Numărați coloanele cu date.xlsm

2 moduri de a număra coloanele cu date utilizând VBA în Excel

1. Numărați toate coloanele dintr-o foaie de lucru cu date folosind un cod VBA simplu

Putem vedea cele 3 coloane în următorul tabel de date. Acum vom utiliza un cod VBA pentru a determina numărul de coloane utilizate într-o singură foaie de calcul Excel.

❶ Mai întâi de toate, apăsați ALT + F11 pentru a deschide editorul VBA.

❷ După aceea, creați un nou modul din Insert> Module.

❸ După aceea, copiați următorul script VBA.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Numărul de coloane cu date este: " & .Columns.Count End With End Sub 

❹ Apoi reveniți la editorul VBA și apăsați CTRL + V pentru a o lipi.

❺ Acum salvați codul VBA apăsând pe CTRL + S buton.

❻ Pentru a rula codul VBA, accesați pagina Dezvoltator și faceți clic pe Macros Sau, apăsați pur și simplu butonul F5 cheie.

The Macro va apărea caseta de dialog.

❼ Tot ce trebuie să faci este să dai click pe butonul Rulați buton.

Acum veți vedea că a apărut o casetă de dialog care spune că numărul de coloane cu date este 3.

Citește mai mult: Cum să numărați numărul de coloane în Excel (3 metode ușoare)

2. Numărați toate coloanele dintr-un interval dat cu date folosind un cod Excel VBA

Următorul cod VBA vă va permite să numărați toate coloanele cu date într-un anumit interval.

Pentru a utiliza codul,

❶ Mai întâi de toate, deschideți editorul VBA apăsând pe ALT + F11.

❷ Apoi mergeți la Inserare> Modul pentru a crea un nou modul.

❸ După aceea, copiați următorul script VBA.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column: " & xRng.Range("B5:D5").Columns.Count End Sub 

❹ Reveniți la editorul VBA și apăsați pe CTRL + V pentru a o lipi.

❺ Acum salvați codul apăsând pe CTRL + S.

❻ Mergeți la Dezvoltator și apăsați butonul Macros pentru a deschide fereastra Macro fereastră.

Sau, pur și simplu apăsați butonul F5 pentru a utiliza tasta Macro caseta de dialog.

❼ Din caseta de dialog, alegeți numele funcției CountColumnsInARange și a lovit Rulați buton.

În cele din urmă, va apărea o mică fereastră de dialog care va spune că numărul total de coloane este 3.

Citește mai mult: Cum să numărați coloanele pentru VLOOKUP în Excel (2 metode)

Mai multe coduri VBA pentru a număra coloane în Excel

1. Utilizați metoda VBA Range.End pentru a returna numărul ultimei coloane utilizate

Pentru a obține ultimul număr de coloană utilizat într-o foaie de calcul Excel,

❶ Mai întâi de toate, deschideți editorul VBA apăsând pe ALT + F11.

❷ Apoi mergeți la Inserare> Modul pentru a crea un nou modul.

❸ Copiați următoarele VBA cod:

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

❹ Lipiți și salvați codul în editorul VBA.

❺ Apăsați butonul F5 pentru a rula codul de mai sus.

Veți obține numărul ultimei coloane într-o casetă de dialog pop-up, ca în imaginea de mai jos:

Citește mai mult: Cum să numărați coloanele până când valoarea este atinsă în Excel

2. Utilizați metoda Range.Find pentru a returna numărul ultimei coloane utilizate în Excel

Dacă sunteți în căutarea codurilor VBA pentru a returna ultimul număr de coloană utilizat, urmați pașii de mai jos:

❶ Mai întâi de toate, apăsați ALT + F11 pentru a deschide editorul VBA.

❷ După aceea, creați un nou modul din Insert> Module.

❸ Copiați următorul cod VBA:

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub 

❹ Apoi reveniți la editorul VBA și apăsați CTRL + V pentru a o lipi.

❺ Acum salvați codul VBA apăsând pe CTRL + S buton.

Acum, apăsați butonul F5 pentru a rula codul de mai sus.

Veți obține numărul ultimei coloane utilizate într-o casetă de dialog pop-up, ca în imaginea de mai jos:

Lucruri de reținut

• Presa ALT + F11 pentru a deschide editorul VBA.
• Puteți apăsa ALT + F8 pentru a beneficia de Macros caseta de dialog.
• Pentru a rula codul VBA, apăsați butonul F5.

Concluzie

Pentru a rezuma, am discutat 2 moduri de a număra coloane cu date folosind VBA în Excel. Vă recomandăm să descărcați caietul de lucru de practică atașat împreună cu acest articol și să practicați toate metodele cu acesta. Și nu ezitați să puneți întrebări în secțiunea de comentarii de mai jos. Vom încerca să răspundem la toate întrebările relevante cât mai curând posibil. Și vă rugăm să vizitați site-ul nostru web ExcelWIKI pentru a explora mai mult.