Šiame straipsnyje mes sužinosime, kaip ištrinti tuščius stulpelius per VBA „Microsoft Excel“. Mes ištrinsime visiškai tuščius stulpelius, tai reiškia, kad jei nėra duomenų visame stulpelyje.
Paimkime pavyzdį ir supraskime:
Turime duomenų diapazone A1: I21, kuriame A stulpelyje yra Pavadinimas, B stulpelis yra tuščias, C stulpelyje yra Gatvės adresas, D stulpelis Miestas, E stulpelis tuščias, F stulpelis - regionas, G stulpelis tuščias, H stulpelis - šalis pavadinimą, o I stulpelyje yra telefono numeris.
Norime ištrinti tuščius stulpelius iš duomenų, atlikite toliau nurodytus veiksmus ir kodą:
- Atidarykite VBE puslapį ir paspauskite klavišą Alt+F11
- Įdėkite modulį, kad parašytumėte kodą
- Parašykite žemiau nurodytą kodą:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell). Stulpelis Ar iki C = 0 If WorksheetFunction.CountA (Stulpeliai (C)) = 0 Tada Stulpeliai (C). Ištrinti pabaigą, jei C = C - 1 „Loop End Sub“
Kodo paaiškinimas:
Pirmiausia mes apibrėžėme visus kintamuosius. Tada tuščių stulpelių diapazonas, tada mes naudojome „Daryti iki ciklo“, kad ištrintume tuščius stulpelius. Ir dabar mes apibrėžėme tuščią stulpelį ir ištrynimo komandą.
Norėdami paleisti kodą, paspauskite klaviatūros klavišą F5,
- Visi tušti stulpeliai bus ištrinti.
Tokiu būdu mes galime ištrinti tuščius stulpelius per VBA „Microsoft Excel“.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el