Excel VBA - usuwanie pustych linii

[Marcin R.]

Jak rozpoznać za pomocą VBA ze w tekscie danej komórki znajduje sie
przeniesienie do drugiej linii [Chr(10)] i jest ona pusta.
Często użytkownicy mojej aplikacji wpisując dane do komórek zostawiaja puste
przeniesiena do drugiej linii i czesto jest to ostatnia linia.
Jak usunac te zbedne puste linie?

[Blazey]

Post by Marcin R.
Jak rozpoznać za pomocą VBA ze w tekscie danej komórki znajduje sie
przeniesienie do drugiej linii [Chr(10)] i jest ona pusta.
Często użytkownicy mojej aplikacji wpisując dane do komórek zostawiaja puste
przeniesiena do drugiej linii i czesto jest to ostatnia linia.
Jak usunac te zbedne puste linie?

Sub yy()
Dim fraza As String
'
fraza = Trim(Cells(2, 1).Value)
If Right(fraza, 1) = Chr(10) Then fraza = Left(fraza, Len(fraza) - 1)
End Sub
pozdrawiam

[Marcin R.]

Post by Blazey
Sub yy()
Dim fraza As String
'
fraza = Trim(Cells(2, 1).Value)
If Right(fraza, 1) = Chr(10) Then fraza = Left(fraza, Len(fraza) - 1)
End Sub
pozdrawiam

Ale on uwzglednia jedynie dodatkowe puste linie na koncu tekstu.
Jak tu sie dobrać do pustych linii gdzies w środku tekstu?

[blazey]

Post by Marcin R.

Post by Blazey
Sub yy()
Dim fraza As String
'
fraza = Trim(Cells(2, 1).Value)
If Right(fraza, 1) = Chr(10) Then fraza = Left(fraza, Len(fraza) - 1)
End Sub
pozdrawiam

Ale on uwzglednia jedynie dodatkowe puste linie na koncu tekstu.
Jak tu sie dobrać do pustych linii gdzies w środku tekstu?

Sub yy()
Dim znajdz, fraza As String
Dim pos As Integer
'
znajdz = vbLf & vbLf
fraza = Trim(Cells(1, 1).Value)
Do While InStr(fraza, znajdz) > 0
pos = InStr(fraza, znajdz)
fraza = Mid(fraza, 1, pos) & Mid(fraza, (pos + 2), 1000)
Loop
If Right(fraza, 1) = vbLf Then fraza = Left(fraza, Len(fraza) - 1)
End Sub

nie zrozumielismy sie

pozdrawiam

[Halina]

Post by Marcin R.
Jak rozpoznać za pomocą VBA ze w tekscie danej komórki znajduje sie
przeniesienie do drugiej linii [Chr(10)] i jest ona pusta.
Często użytkownicy mojej aplikacji wpisując dane do komórek zostawiaja puste
przeniesiena do drugiej linii i czesto jest to ostatnia linia.
Jak usunac te zbedne puste linie?
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Sprawdzenie
MsgBox (Trim(Cells(1, 2).Value) = Chr(10))

usunięcie np.:
Application.ScreenUpdating = False
With Sheets("Arkusz3")
.Cells.Select
.Cells.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, SearchOrder
_
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells(1, 1).Select
End With
Application.ScreenUpdating = True

[Marek S.]

Post by Marcin R.
Jak rozpoznać za pomocą VBA ze w tekscie danej komórki znajduje sie
przeniesienie do drugiej linii [Chr(10)] i jest ona pusta.
Często użytkownicy mojej aplikacji wpisując dane do komórek zostawiaja puste
przeniesiena do drugiej linii i czesto jest to ostatnia linia.

Czyli wpisują to celowo, bo muszą wcisnąć ALT+ENTER podczas edycji komórki.

Chyba że kopiują dane z pliku tekstowego lub z edytora.



MS

Post by Marcin R.
Jak usunac te zbedne puste linie?
--
Wysłano z serwisu Usenet w portalu Gazeta.pl ->

http://www.gazeta.pl/usenet/