Zastąp komórki w arkuszach Excela inną wartością


Mam liść Excel zawierający około 900 linii danych, a muszę uruchomić jedną z kolumn i zastąpić, co jest w tej kolumnie, inna wartość, w zależności od tego, co jest obecnie w kolumnie.
Na przykład, powiedzmy, wprowadzane są następujące wartości w kolumnie F:

Reg/& amp; Transport lotniczy

Adj/Aviation & amp; Transport

Adj/Aviation & amp; Transport

Instruktor aplikacji ESL

Adj/ESL

Reg/& amp; Transport lotniczy

Profesor/lotnictwo

Profesor lotnictwa

Profesor nadzwyczajny, profesor

Profesor

Prof/lotnictwo i amp; Transport

Adiunkt

Profesor

Profesor

Adj/lotnictwo

Profesor

Dir Master Prog -/Doz prof

Przewodniczący/DOC Prof/Aviation & amp; TS

Adiunkt/lotnictwo

Profesor nadzwyczajny/Lotnictwo

Adj.Asst. Prof-Aviation
</br>
</br>
</br>Chcę przejrzeć tę kolumnę, a jeśli jedna z komórek zawiera wartość „Lotnictwo”, chcę wyczyścić zawartość tej komórki i wprowadzić zamiast niej „lotnictwo i transport”.
Jeśli ktoś może mi pokazać, jak spełnić to zadanie, to oznacza cały świat!
2021-03-02 Dodaj komentarz
Udostępnij to

Nie znaleziono powiązanych wyników

    Zaproszony:
    Anonimowy użytkownik

    Anonimowy użytkownik

    Potwierdzenie od:

    Dodaj nową kolumnę i wypełnij ją formułą podobną do: 
    =IF(NOT(ISERROR(SEARCH("Aviation",B1))),"Aviation & Transportation",B1)

    • To nie jest testowane, może wymagać pewnych korekt składni, ponieważ nie umieściłem go w programie Excel. Ale to powinno wskazać ci właściwy kierunek.
    2021-03-02 0 0
    Udostępnij to
    Anonimowy użytkownik

    Anonimowy użytkownik

    Potwierdzenie od:

    Właściwie to mam lepsze rozwiązanie. Możesz używać symboli wieloznacznych w menu Znajdź..Zamień.
    Naciśnij klawisze Ctrl + F & > Zastąp & > Wpisz
    * Aviation *
    , a następnie wpisz cokolwiek chcesz zastąpić wartością komórki. Przetestowałem to i działa. Możesz włączyć lub wyłączyć rozróżnianie wielkości liter.
    2021-03-02 0 0
    Udostępnij to
    Anonimowy użytkownik

    Anonimowy użytkownik

    Potwierdzenie od:

    Spróbuj 
    Sub replace()
    
 Dim Rws As Long, Rng As Range, c As Range
    
 Rws = Cells(Rows.Count, "F").End(xlUp).Row
    
 Set Rng = Range(Cells(1, 6), Cells(Rws, 6)) For Each c In Rng.Cells
    
 If c Like "*Aviation*" Then c = "Aviation & Transportation"
    
 Next c
    
End Sub

    Możesz także użyć autofiltera w swoim kodzie VBA.
    Na początek
    https://i.stack.imgur.com/P7xgg.jpg
    wynik
    https://i.stack.imgur.com/G6S6f.jpg
    Użyj kodu autofilode. 
    Sub Button1_Click()
    
 Dim Rws As Long, Rng As Range, c As Range
    
 Rws = Cells(Rows.Count, "F").End(xlUp).Row Columns("F:F").AutoFilter Field:=1, Criteria1:="=*Aviation*"
    
 Set Rng = Range(Cells(2, 6), Cells(Rws, 6)).SpecialCells(xlCellTypeVisible)
    
 Rng.Value = "Aviation & Transportation"
    
 ActiveSheet.AutoFilterMode = 0End Sub
    2021-03-02 0 0
    Udostępnij to
    Dlaczego jest złożony? 0 odpowiedzi zostało zwiniętych

    Aby odpowiedzieć na pytania, Zaloguj się lub Zarejestruj się

    Polityka prywatności: https://zweryfikowac.pl/Polityka-prywatnosci.pdf
    Copyright © 2023, All Rights Reserved