eliminare randuri/celule goale
eliminare randuri/celule goale
Am un tabel foarte mare cu multe randuri goale, intercalate cu randuri ce au date in celule.
Cum s-ar putea sterge, cu ajutorul VBA, randurile ce nu contin nici o data in celule.
Multumesc
Cum s-ar putea sterge, cu ajutorul VBA, randurile ce nu contin nici o data in celule.
Multumesc
Re: eliminare randuri/celule goale
Buna ziua
Ati putea spune care e diferenta intre acest subiect si cel pe care l-ati mai deschis aici?
Pentru ca seamana a subiect dublat si sa vedem daca e cazul sa-l inchidem pe acesta. Sau sa-l stergem de tot.
Principial vorbind, eliminarea unei celule strica aranjarea informatiei in sensul in care restul celulelor se deplaseaza in sus/jos stanga/dreapta, dupa caz si va puteti trezi ca cnp-ul unei persoane, de exemplu va ajunge in dreptul numelui unei persoane care n-are nicio legatura cu el....
IP
Ati putea spune care e diferenta intre acest subiect si cel pe care l-ati mai deschis aici?
Pentru ca seamana a subiect dublat si sa vedem daca e cazul sa-l inchidem pe acesta. Sau sa-l stergem de tot.
Principial vorbind, eliminarea unei celule strica aranjarea informatiei in sensul in care restul celulelor se deplaseaza in sus/jos stanga/dreapta, dupa caz si va puteti trezi ca cnp-ul unei persoane, de exemplu va ajunge in dreptul numelui unei persoane care n-are nicio legatura cu el....
IP
-
- Mesaje: 25
- Membru din: Lun Oct 03, 2011 12:47 pm
Re: eliminare randuri/celule goale
Bamuind ca este vorba de un tabel excel atunci aici gasesti raspunsul.
Re: eliminare randuri/celule goale
Multumesc pentru raspunsuri.
Este vorba de randuri de tabel, goale de la un capat la altul.
O sa incerc maco din linkul oferit !
Este vorba de randuri de tabel, goale de la un capat la altul.
O sa incerc maco din linkul oferit !
Re: eliminare randuri/celule goale
Sunt in Word,promterul in tabel, accesez Tools, Macros, DeleteBlankRows, Run !
Raspunsul este :"Can't execute code in break mode"
Deschid Microsoft VB si dau run cu promterul in subrutina.
Raspunsul este: " Compile error: Method or data member not found"
Atentie, cred ca am uitat sa spun:
XP, Word 2003 !
Raspunsul este :"Can't execute code in break mode"
Deschid Microsoft VB si dau run cu promterul in subrutina.
Raspunsul este: " Compile error: Method or data member not found"
Atentie, cred ca am uitat sa spun:
XP, Word 2003 !
Re: eliminare randuri/celule goale
Ok !
Intrucat ma presa timpul si n-am primit nicio solutie viabila, am folosit google !
Dupa 15 minute in care am testat 5 scripturi am gasit unul care merge.
Deci:
1. Nu trebuie sa existe celule la care s-a facut "merge" pe verticala si ocupa 2 randuri !
Daca exista, "Break Table" si duceti in alt document restul de tabel(e).
2. Nu trebuie sa existe ABSOLUT nici un "caracter" ascuns sau nu, in celule.
Pentru curatirea tabelelor de ^13 folositi un macro care s-a postat aici: ClearTable.
Intrucat functioneaza la mine pe Xp si Word 2003, sper ca o sa functioneze pe orice sistem si varianta de Word.
Cu scuzele de rigoare, ce s-a intamplat cu baietii, domnii, etc. aceia care administrau forumul de VB, acum un an ?
Intrucat ma presa timpul si n-am primit nicio solutie viabila, am folosit google !
Dupa 15 minute in care am testat 5 scripturi am gasit unul care merge.
Deci:
1. Nu trebuie sa existe celule la care s-a facut "merge" pe verticala si ocupa 2 randuri !
Daca exista, "Break Table" si duceti in alt document restul de tabel(e).
2. Nu trebuie sa existe ABSOLUT nici un "caracter" ascuns sau nu, in celule.
Pentru curatirea tabelelor de ^13 folositi un macro care s-a postat aici: ClearTable.
Cod: Selectaţi tot
Sub ClearTable()
Dim i As Long
'Pregatire bucla prelucrare tabele
For i = 1 To ActiveDocument.Tables.Count
'Selecteaza tabelul pentru prelucrare
ActiveDocument.Tables(i).Select
'Pregateste selectia pentru FIND & REPLACE
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop 'Asigura oprirea cautarii dupa ce a terminat cu selectia curenta
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'Executia efectiva a inlocuirii pentru selectia data
Selection.Find.Execute Replace:=wdReplaceAll
'trece la urmatorul tabel
Next i
End Sub
Macroul urmator elimina toate randurile goale din toate tablele din documentul dvs.
Sub DeleteEmptyRows_AllTables()
Dim oTable As Table
Dim oRow As Row
For Each oTable In ActiveDocument.Tables
For Each oRow In oTable.Rows
'Check whether row is empty - delete if it is
If Len(oRow.Range.Text) = oRow.Cells.Count * 2 + 2 Then
oRow.Delete
End If
Next oRow
Next oTable
End Sub
Cu scuzele de rigoare, ce s-a intamplat cu baietii, domnii, etc. aceia care administrau forumul de VB, acum un an ?
Ultima oară modificat Sâm Mar 08, 2014 7:01 pm de către Dr.Windows, modificat 1 dată în total.
Motiv: Adaugare taguri CODE
Motiv: Adaugare taguri CODE