Velikokrat kopiramo razne tabele iz Worda (besedilni urejevalnik) v Excel, pri tem pa pride do pojava praznih celic. Tega niti ne zaznamo kot težave, dokler nismo prisiljeni teh podatkov obdelati za nadaljne analize. Sam sem imel tako težavo, ker so v “stolpcu B” (naziv naselja) bili podatki, ki sem jih potreboval za nadaljno obdelavo. Zato sem si malo pomagal z VBA
Sub zapolni()
‘najde prvo prazno celico in vanjo prepiše vrednost in zadnje polne celice
Dim i As Integer
‘Nastavljeno je na korak 20 vrstic, ker se to lepo vidi na eni velikosti zaslona
For i = RowCount To 20 Step 1
‘Range je določen za maksimalno velikost. ni pa potrebno,ker se sam odločiš kdaj neha delat
‘Trenutno je izbran stolpec B
Range(“B65536”).End(xlUp).Select
Range(“B1”).End(xlDown).Offset(1, 0).Select
ActiveCell.Offset(-1, 0).Copy
ActiveCell.Offset(0, 0).PasteSpecial xlPasteAllExceptBorders
Next
End Sub