Nedan kommer vi att titta på ett program i Excel VBA den där raderar tomma celler .
Situation:
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 Heltalrä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:
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:
Gå till nästa kapitel: Slinga