Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel VBA - usuwanie wierszy

1,001 views
Skip to first unread message

r...@rpg.za.net

unread,
Apr 30, 2006, 12:28:56 AM4/30/06
to
Jak w temacie, jak moge usunac wiersze (ilosc nieznana) ktorych
wartosci sa mniejsze od 16,3?
(czyli usuwamy 10, 15,5, 16,2 itd)

pxd74

unread,
May 4, 2006, 4:20:59 PM5/4/06
to
Uzytkownik <r...@rpg.za.net> napisal w wiadomosci
news:1146371336.3...@u72g2000cwu.googlegroups.com...

> Jak w temacie, jak moge usunac wiersze (ilosc nieznana) ktorych
> wartosci sa mniejsze od 16,3?
> (czyli usuwamy 10, 15,5, 16,2 itd)

Spróbuj takiego makra:

Sub Jeden()
Dim i As Long
With ActiveWorkbook.Worksheets("Nazwa arkusza")
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
If .Cells(i, 1) < 16.3 Then
.Rows(i).Delete (xlShiftUp)
End If
Next
End With
End Sub

To makro dziala dla kolumny A.


--
Pozdrowienia
pxd74

0 new messages