În acest articol, vom afla despre cum să ștergeți coloanele goale prin VBA în Microsoft Excel. Vom șterge coloanele care sunt complet goale, înseamnă că dacă nu există date în întreaga coloană, aceste date.
Să luăm un exemplu și să înțelegem:
Avem date în intervalul A1: I21, în care coloana A conține nume, coloana B este necompletată, coloana C conține adresa străzii, coloana D oraș, coloana E este necompletată, coloana F conține regiune, coloana G este necompletată, coloana H conține țara numele, iar coloana I conține numărul de telefon.
Vrem să ștergem coloanele goale din date, urmați pașii și codul de mai jos:
- Deschideți pagina VBE pentru a apăsa tasta Alt + F11
- Introduceți modulul pentru a scrie codul
- Scrieți codul menționat mai jos:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do Until C = 0 If WorksheetFunction.CountA (Coloane (C)) = 0 Apoi Coloane (C). Ștergeți sfârșitul Dacă C = C - 1 Bucl End Sub
Explicatie cod:
Mai întâi am definit toate variabilele. Apoi gama de coloane goale, apoi am folosit „Do until loop” pentru a șterge coloanele goale. Și, acum am definit coloana goală și comanda șterge.
Pentru a rula codul, apăsați tasta F5 de pe tastatură,
- Toate coloanele goale vor fi șterse.
În acest fel, putem șterge coloanele goale prin VBA în Microsoft Excel.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail