Ištrinti tuščius elementus "Excel VBA"

Žemiau apžvelgsime programą Excel VBA tai ištrina tuščius langelius.

Padėtis:

1. Pirma, deklaruojame du kintamuosius tipo Integer. Vienas vardinis skaitiklis ir vienas vardas i. Kintamojo skaitiklio inicializavome 0 reikšmę.

Dim counter As Integer, i As Integer
counter = 0

2. Tada mes patikrinsime kiekvieną langelį, ar jis tuščias, ar ne (<> reiškia ne lygą). Šiuo tikslu naudojame kilpą. Jei ne tuščia, mes rašome reikšmę stulpeliui B. Skaitliukas saugo ląstelių, kurios buvo nukopijuotos į stulpelį B, skaičių. Kiekvieną kartą, kai kopijuojame vertę į B stulpelį, mes padidiname skaičių iki 1. Šis programos elementas atrodo taip:

For i = 1 To 10
    If Cells(i, 1).Value <> "" Then
        Cells(counter + 1, 2).Value = Cells(i, 1).Value
        counter = counter + 1
    End If
Next i

Iki šiol pasiektas rezultatas:

Parašykite ne tuščias ląsteles į kitą stulpelį

3. Galiausiai mes tuščias diapazonas ("A1: A10"), nukopijuokite B stulpelio vertes į A stulpelį ir tuščią diapazoną ("B1: B10").

Range("A1:A10").Value = ""
Range("A1:A10").Value = Range("B1:B10").Value
Range("B1:B10") = ""

Rezultatas: