Jak dodać / wstawić określony znak co x znaków do komórek?
Przypuśćmy, że mam listę ciągów tekstowych, które chcę wstawić myślniki lub inne separatory po każdych czterech znakach do komórek, aby uzyskać następujący wynik zrzutu ekranu. Do wstawienia określonego znaku potrzeba zbyt wielu komórek, czy są jakieś szybkie sposoby wstawiania myślników co cztery znaki w programie Excel?
Wstaw określony znak co x znaków do komórki za pomocą kodu VBA
Wstaw określony znak co x znaków do komórki za pomocą Kutools for Excel
Wstaw określony znak co x znaków do komórki za pomocą kodu VBA
Możesz zastosować następujący kod VBA, aby wstawić określony znak po każdych czterech znakach do komórek, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: wstaw określony znak co x znaków do komórki
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wybraniu zakresu danych, w którym chcesz wstawić określony znak w ciągach tekstowych, patrz zrzut ekranu:
4, i kliknij OK, w poniższym polu zachęty wprowadź numer, który chcesz wstawiać po każdym znaku, patrz zrzut ekranu:
5. Kliknij dalej OKiw następnym polu zachęty wprowadź określony znak, który chcesz dodać do tekstu, patrz zrzut ekranu:
6. Kliknij OK i wybierz jedną komórkę, w której chcesz wyprowadzić wynik w polu zachęty, zobacz zrzut ekranu:
7. Nareszcie kliknij OK, określony znak został wstawiony do każdego ciągu tekstowego co cztery znaki, patrz zrzut ekranu:
Wstaw określony znak co x znaków do komórki za pomocą Kutools for Excel
Powyższy kod może być nieco trudny dla większości początkujących użytkowników Excela, tutaj mogę przedstawić przydatne narzędzie - Kutools dla programu Excel, Z siedzibą w Dodaj tekst możesz szybko dodać określony tekst lub znak przed, po lub w określonych pozycjach wartości komórki.
| Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Jeśli masz zainstalowany Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz zakres danych, w którym chcesz wstawić określony znak.
2. Następnie kliknij Kutools > Tekst > Dodaj tekstzobacz zrzut ekranu:
3, w Dodaj tekst W oknie dialogowym określ znak, który chcesz wstawić do pliku Tekst a następnie wybierz Określ z pozycji w polu tekstowym wprowadź pozycje, po których chcesz wstawić znak, w tym samym czasie możesz podejrzeć wynik w prawym okienku, patrz zrzut ekranu:
Tips: Tutaj wpisuję 4,8,12 w polu tekstowym Sprecyzować które wskazują, aby wstawić określony tekst po 4, 8 i 12 znaku ciągu tekstowego.
4. Następnie kliknij Ok or Aplikuj przycisk, określony znak został wstawiony do wartości komórek w określonych pozycjach.
 |
 |
 |
Kliknij, aby dowiedzieć się więcej szczegółów na temat tego narzędzia Dodaj tekst.
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Demo: Wstaw określony znak co x znaków do komórki za pomocą Kutools for Excel
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!
