Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makro usuwające konkretną wartość z kolumny

nicko1988 · Wysłany: 29-06-2012, 08:41 **Makro usuwające konkretną wartość z kolumny**

Witam,

Mam taki problem. Potrzebowałbym makro, które usunie mi wartość X z danej kolumny.

Na zasadzie takiej, że wpisuję sobie w kodzie wartość np. "100" i makro usunie z danej kolumny wszystkie wartości, które są 100 i zostawi puste pole.

Kolumna niech dla przykładu będzie A i ilość wierszy 100.

Pozdrawiam i z góry dziękuje za pomoc.

pitermxa · Exceloholic **Pomógł:** 32 razy Posty: 143

Kod:

Sub usu()
For Each el In Range("A:A")
If el.Value = 100 Then
el.Value = ""
End If
Next el
End Sub

Zmora · Wysłany: 29-06-2012, 08:50

Albo:

Kod:

Option Explicit

Sub kasuj()
Dim a As Integer, i As Long, liczba As Double
a = Cells(Rows.Count, "A").End(xlUp).Row

liczba = Application.InputBox("Podaj liczbe", Type:=1)

For i = 1 To a
If Cells(i, "A").Value = liczba Then Cells(i, "A").ClearContents
Next i
End Sub

Marecki · Wysłany: 29-06-2012, 08:56

nicko1988, takie makro możesz sobie nagrać.
Zaznacz daną kolumnę lub zakres w jakim chcesz usunąć daną wartość -> Ctrl+H w znajdź podajesz wartość do zamiany w zamień na nic nie wpisujesz i to wszystko.
Po nagraniu kodu i usunięciu zbędnych selectów zostaje:

Kod:

Sub usun()
Range("A1:A100").Replace "100", ""
End Sub

nicko1988 · Wysłany: 29-06-2012, 13:02

Dziękuje, kłopot rozwiązany.

Pozdrawiam

Artik · Wysłany: 30-06-2012, 00:45

mkkk23, nie, no kod działa świetnie! szczególnie na liczby np. 1100; 1005; 1000; 0,1003. :lough

Ponadto użycie pustego łańcucha wcale nie czyści komórek. :shock:

Przekonasz się kiedyś o tym stosując ADO. :-)

Ale gratki za pierwszą setuchnę. :beer

Artik

Marecki · Wysłany: 30-06-2012, 12:38

Artik, fakt działa rewelacja :oops:

, a ja się cieszyłem z tak krótkiego kodu.
Mania skracania. Zabrakło jedynki na końcu

Kod:

Range("A1:A100").Replace "100", "", 1

Dobrze że są takie osoby na forum co kontrolują amatorów :mrgreen:

Dzięki Artik

Artik · Wysłany: 30-06-2012, 20:53

Marecki · Wysłany: 30-06-2012, 21:24

Wielkie dzięki Artik, za pouczenie.
"Mania skracania" nie zawsze jest wskazana.
Sam się dopiero uczę i faktyczne tak zapisane polecenie za wiele by mi nic nie mówiło, jak bym nie przeczytał jakiejś tam książki , czy wiadomości z sieci.
A o "Replace" doszedłem do tego po Twoim poście nr id 163390 na zasadzie prób i błędów.
Jeszcze raz wielkie dzięki.