Šiame straipsnyje mes sukursime makrokomandą, kad ištrintume neišsamius įrašus, kuriuose yra tuščių langelių.
Neapdorotus duomenis sudaro kai kurie duomenų pavyzdžiai, įskaitant vardą, amžių ir lytį. Jame taip pat yra keletas tuščių langelių.
Norime pašalinti tuos įrašus, kuriuose yra tuščių langelių.
Loginis paaiškinimas
Mes sukūrėme „BlankRowDeletion“ makrokomandą, kad ištrintume neišsamius įrašus. Jis ieško ir pasirenka tuščius langelius, tada ištrina visą eilutę, kurioje yra tuščias langelis.
Kodo paaiškinimas
Nustatyti Rng = Diapazonas („A9: C“ ir „LastRow“)
Aukščiau pateiktas kodas naudojamas tam tikrų duomenų diapazono objektui sukurti.
Rng.SpecialCells (xlCellTypeBlanks). Pasirinkite
Aukščiau pateiktas kodas naudojamas tuščioms ląstelėms pasirinkti nurodytame diapazone.
Pasirinkimas. Visa eilutė. Ištrinti
Aukščiau pateiktas kodas naudojamas ištrinti visą pasirinkto langelio eilutę.
Sekite toliau pateiktą kodą
Option Explicit Sub BlankRowDeletion () 'Declaring kintamieji Dim LastRow as Long Dim Rng As Range' Gaunamas paskutinio langelio eilutės numeris LastRow = Diapazonas ("A1"). SpecialCells (xlCellTypeLastCell) .Row 'Visų duomenų rinkinio pasirinkimas Rng = Range ("A9 : C "& LastRow)" Tuščių langelių pasirinkimas Rng.SpecialCells (xlCellTypeBlanks). Pasirinkite „Ištrinti visą eilutę Selection.EntireRow.Delete Range“ („A9“). Pasirinkite End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el