300 Exempel

Ta bort tomma celler

Delete Blank Cells

Nedan kommer vi att titta på ett program i Excel VBA den där raderar tomma celler .





Situation:

Ta bort tomma celler i Excel VBA





excel hur man summerar en kolumn

1. Först deklarerar vi två variabler av typen Integer. En namngiven räknare och en som heter i. Vi initierar variabelräknaren med värde 0.

IngendiskenSom Heltal, jagSom Heltal
räknare = 0

2. Därefter kontrollerar vi för varje cell om den är tom eller inte (betyder inte lika med). Vi använder en loop för detta. Om det inte är tomt skriver vi värdet till kolumn B. Räknaren håller reda på antalet celler som har kopierats till kolumn B. Varje gång vi kopierar ett värde till kolumn B, ökar vi räknaren med 1. Denna del av programmet ser ut så här:



Förjag = 1Till10
OmCeller (i, 1). Värde ''Sedan
Celler (räknare + 1, 2) .Värde = Celler (i, 1) .Värde
räknare = räknare + 1
Slutet Om
Nästai

Resultat hittills:

Skriv icke -tomma celler till nästa kolumn

3. Slutligen tömmer vi intervall ('A1: A10'), kopierar värdena i kolumn B till kolumn A och tömmer intervall ('B1: B10').

Område ('A1: A10'). Värde = ''
Område ('A1: A10'). Värde = intervall ('B1: B10'). Värde
Område ('B1: B10') = ''

Resultat:

Ta bort resultat från tomma celler

9/9 klar! Läs mer om om då uttalanden>
Gå till nästa kapitel: Slinga



^