| Jak usunąć z listy wpisy, które znajdują się także na drugiej liście? |
|
Problem: Chciałbyś usunąć dane z kolumny B, które występują także w kolumnie C. ![]() Rozwiązanie: Możesz skorzystać np. z takiego makra. Sub UsunWybraneDane() Dim lWierszKolB As Long Dim lWierszKolC As Long Dim rngZakres As Excel.Range Dim iLicznik As Integer Dim sMarka As String With Arkusz1 'Ostatni wiersz dla kolumn B i C lWierszKolB = .Range("B" & .Rows.Count).End(xlUp).Row lWierszKolC = .Range("C" & .Rows.Count).End(xlUp).Row 'Jezeli brak danych, wtedy zamknij procedure If lWierszKolC < 3 Or lWierszKolB < 3 Then Exit Sub 'Nazwy firm do usuniecia Set rngZakres = .Range("C2:C" & lWierszKolC) 'Petla po wszystkich markach z kolumny B, od dolu 'jezeli nazwa znajduje sie w zakresie, wtedy usun wiersz z nia For iLicznik = lWierszKolB To 3 Step -1 sMarka = .Range("B" & iLicznik).Value If Application.CountIf(rngZakres, sMarka) > 0 Then .Range("B" & iLicznik).Delete Shift:=xlUp End If Next iLicznik End With End Sub |
|
| Zmieniony ( Czwartek, 29. Lipiec 2010 10:05 ) |
