Jak zamienić niepuste komórki na określoną wartość w programie Excel?
W Excelu możemy szybko i łatwo podmienić lub wypełnić zaznaczenie określoną wartością naciskając Ctrl + Enter klucze, ale czy wiesz, jak zastąpić tylko niepuste komórki określoną wartością w wybranym zakresie, który zawiera zarówno puste komórki, jak i komórki wartości.
Zastąp niepuste komórki określoną wartością za pomocą funkcji Znajdź i zamień
Zastąp niepuste komórki określoną wartością za pomocą kodu VBA
Zastąp niepuste komórki określoną wartością za pomocą funkcji Znajdź i zamień
W programie Excel funkcja Znajdź i zamień może pomóc nam znaleźć wszystkie niepuste komórki, a następnie zastąpić je określoną wartością, jak chcesz.
1. Wybierz zakres danych, w którym chcesz zastąpić tylko komórki wartości.
2. A następnie naciśnij Ctrl + H otworzyć Znajdowanie i zamienianie okno dialogowe w Znajdowanie i zamienianie dialog, pod zastąpić tab, wpisz * Znajdź co i wprowadź potrzebną wartość Zastąp pole tekstowe, patrz zrzut ekranu:
3. Następnie kliknij Zamień wszystko i wyskoczyło okno dialogowe z informacją o liczbie komórek do zastąpienia, zamknij okna dialogowe, a następnie wszystkie wartości w wybranym zakresie zostały zastąpione określonymi danymi, patrz zrzuty ekranu:
Zastąp niepuste komórki określoną wartością za pomocą kodu VBA
Korzystając z następującego kodu VBA, możesz również jednocześnie zastąpić wszystkie komórki danych potrzebnymi wartościami. Zrób tak:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Zastąp niepuste komórki określoną wartością
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wyborze zakresu, który chcesz zastąpić dane, patrz zrzut ekranu:
4. Następnie kliknij OKi wprowadź określoną wartość w następnym polu zachęty, zobacz zrzut ekranu:
5. A następnie kliknij OK, wszystkie wartości w wybranym zakresie zostały jednocześnie zastąpione określonymi danymi.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!