Przejdź do głównej zawartości

Jak dodać ciągi tekstu do wielu komórek w programie Excel?

Jeśli będziemy musieli dodać określony tekst lub ciągi tekstu w wielu komórkach, kopiowanie tego tekstu i wklejanie do każdej komórki jeden po drugim będzie żmudne i czasochłonne. Poniższe metody mogą pomóc nam wygodnie i szybko dodać określony tekst w wielu komórkach.


strzałka niebieski prawy bąbelek Dodaj określony tekst do wielu komórek w programie Excel za pomocą VBA

Korzystanie z VBA może ułatwić naszą pracę i dodać określony tekst w wielu komórkach bez kopiowania i wklejania.

Krok 1: Wybierz komórki, w których dodasz określony tekst.

Krok 2: Przytrzymaj przycisk ALT + F11 keys i otwiera okno Microsoft Visual Basic for Applications.

Krok 3: Kliknij wstawka >> Modułi wklej następujące makro w oknie modułu.

Sub Add2Formula ()
' Dodaj tekst

Dla każdego c w zaznaczeniu
c. aktywuj
ActiveCell.FormulaR1C1 = "test -" & ActiveCell.Formula
Dalej c

End Sub

Krok 4: Naciśnij F5 klucz do uruchomienia tego makra.

Note: To makro może dodawać tylko rozszerzenie tekst - przed tekstem każdej komórki. Jeśli chcesz dodać inny tekst lub ciągi, zamień rozszerzenie tekst - z określonym tekstem, który chcesz dodać.


strzałka niebieski prawy bąbelek Dodaj określony tekst do wielu komórek w programie Excel za pomocą Kutools for Excel

W przypadku zwykłych użytkowników programu Microsoft Excel możemy nie znać języka VBA. Alternatywnie, plik Kutools dla programu ExcelNarzędzie Dodaj tekst może pomóc nam szybko i łatwo dodać określony tekst lub ciągi do wielu komórek.

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz teraz

Krok 1: Wybierz komórki, w których dodasz określony tekst.

Krok 2: Kliknij Kutools > Narzędzia tekstowe > Dodaj tekst…. Zobacz zrzut ekranu:

Krok 3: W Dodaj tekst w oknie dialogowym wprowadź określony tekst i znaki w sekcji Tekst.

Krok 4: sprawdź miejsce, w którym dodasz określony tekst w Pozycja Sekcja. (Uwaga: jeśli chcesz wstawić tekst w określonej pozycji, zaznacz Sprecyzować i określ położenie.) Zobacz zrzut ekranu:

Krok 5: Kliknij OK or Dodaj.

Połączenia Dodaj tekst narzędzie Kutools for Excel wspiera nas w dodawaniu dowolnego określonego tekstu i znaków przed lub po oryginalnym tekście komórki. Co więcej, między oryginalnymi tekstami komórek możemy dodać określony tekst. Niezależnie od ustawionych ustawień, możesz wyświetlić podgląd zmian komórki w sekcji Podgląd.


Powiązany artykuł:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to add multiple cells and compare with one cell ,such that the one cell compared to value is dynamically changing. For example sum of column and you are adding values in the column then sum is dynamically changing.

Thank you in Advance.
This comment was minimized by the moderator on the site
If i need to add values to text like: "text" value E12 "text" value E12 "text" valueE12 is it possible? need make SEO
This comment was minimized by the moderator on the site
i want to add one character in before and after . please help .. mail me
This comment was minimized by the moderator on the site
Private Sub CommandButton1_Click()
On Error GoTo errorhandler:
Dim objRange1 As Range
Dim wk As Workbook

'Set up the ranges


Set objRange1 = Range("A22:A51")


objRange1.TextToColumns , Destination:=Sheet1.Range("Z1"), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:="|"
Dim rn As String
Dim rn1 As String
Dim rn2 As String
Dim rep As String
Dim res As String
rep = "Do you want to copy Values?"
res = MsgBox(rep, vbQuestion + vbYesNo, "???")
If res = vbYes Then

rn = InputBox(" Enter Range to Copy Circuit Id")
Sheets("Sheet1").Range("AH1:AH10").Cut Destination:=Sheets("Sheet2").Range(rn)
MsgBox (" Circuit Id has Successfully Pasted")
rn1 = InputBox(" Enter Range to copy Order Reference")
Sheets("Sheet1").Range("AK1:AK10").Cut Destination:=Sheets("Sheet2").Range(rn1)
MsgBox (" Order Reference has Successfully Pasted")
rn2 = InputBox(" Enter Range to copy Inventory Name")
Sheets("Sheet1").Range("AG1:AG10").Cut Destination:=Sheets("Sheet2").Range(rn2)
MsgBox (" Inventory has Successfully Pasted")
Sheets("sheet1").Range("Z1:AM10").ClearContents
Sheets("sheet2").Activate
Else
MsgBox (" Thank You")
End If
errorhandler:
MsgBox ("you have clicked cancelled bitton")
Sheet1.Activate
End Sub


Private Sub CommandButton2_Click()
Sheet1.Range("A10:A32").ClearContents
End Sub







it is working , but i have to add text in one cell . please help me
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations