Pozdrav!

Za brisanje suvišnih razmaka postoji funkcija =TRIM(A1) naravno ako je ćelija u kojoj brišeš nepotrebne razmake A1. Kasnije možeš sa copy/paste special->values da vratiš tekst oslobođen nepotrebnih razmaka u A1.

Sve najbolje!
Ratko

Pokušaj sa trikom Find/Replace

Pokreni Replace
Unesi u polje Find what: blanko*blanko (pritisni razmaknica utipkaj * pritisni razmaknica)
Unesi u polje Replace: blanko (razmaknica)
Izaberi u izborniku Within: Workbook

Klikni na Replace All buton => OK
Ponovi ovu radnju nekoliko puta (sve zavisi koliko najviše imaš blanko karaktera tj. CHAR(32))
Kada Excel dođe do kraja da ne postoji dva ili više blanko karaktera izbacit će ti poruku.

Nakon nekoliko klikova u cijeloj Workbook uklonit ćeš sve blanko razmake ili CHAR(32)

Hvala todra i ivek33.

Nasao sam code koji resava kada postoji leading space i brise prazne celije.

Sub sbDelete_Rows_IF_Cell_Is_Blank()
Dim lRow As Long
Dim iCntr As Long
lRow = 20
For iCntr = lRow To 1 Step -1
If trim(Cells(iCntr, 1)) = “” Then
Rows(iCntr).Delete
End If
Next
End Sub



Ovde sad imam problem kako da brise u svim sheet-ovima a ne samo u jednom aktivnom sheet-u?