Hvordan tilføjes tekst midt i markerede celler i Excel?

Antag at du har en liste over data sammensat med et begyndelsesbogstav G og andre tal, og nu vil du tilføje et nyt bogstav D efter det første bogstav G til hele listen. Se nedenstående skærmbillede vist.

Hvordan kan du gøre for at opnå dette? At føje brevet til cellerne en efter en ser ud til at spilde tid under dit arbejde. I denne artikel viser vi dig, hvordan du tilføjer tekst midt i udvalgte celler i Excel med effektive metoder.

Tilføj tekst midt i markerede celler med formlen
Tilføj tekst midt i markerede celler med VBA-kode
Tilføj tekst midt i markerede celler med Kutools til Excel

Tilføj tekst midt i markerede celler med formlen

I dette afsnit giver vi dig formlen til at tilføje tekst midt i de valgte celler. Gør som følger.

1. Denne metode skal udføres med en hjælpekolonne. Vælg den tomme celle, der støder op til de originale data, her vælger jeg celle B2.

2. Kopier og indsæt formlen = VENSTRE (A2,1) & "D" & MID (A2,2,100) ind i formellinjen, og tryk derefter på Indtast nøgle. Se skærmbillede:

Noter:

• 1). I formlen betyder nummer 1, at teksten tilføjes efter celleens første tegn.
• 2). Tallet 2 og 100 angiver, at tegnene fra anden til hundrededel af den oprindelige celle tilføjes efter den nye indsatte tekst.
• 3). Hvis du vil tilføje tekst efter det andet tegn, skal du ændre tallet 1 til 2 og 2 til 3 i formlen.
• 4). Og tegnet “D” er den tekst, du vil føje til cellen. Skift det ud fra dine behov.

3. Vælg celle B2, træk Fyldhåndtaget ned til den celle, som du vil dække med denne formel. Du kan se teksten tilføjes midt i cellerne på hele listen.

Tips: Udover ovenstående formel kan du også anvende denne formel = UDSKIFT (A2,2,0, "D"), (tallet 2 angiver det sted, hvor du vil indsætte teksten, og bogstavet D henviser til den tekst, du skal tilføje, du kan ændre dem til dit behov), og tryk derefter på Enter-tasten for at få resultatet.

Tilføj tekst midt i markerede celler med VBA-kode

Desuden kan du tilføje tekst midt i valgte celler med VBA-kode.

1. Tryk venligst andre + F11 at åbne Microsoft Visual Basic-applikationer vindue.

2. klik indsatte > Moduler. Kopier og indsæt derefter VBA-koden i kodeditoren.

VBA-kode: Føj tekst til en liste over data efter første tegn

Sub AddString()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	For Each Rng In WorkRng
		Rng.Value = VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
	Next
End Sub

3. Trykke F5 nøgle til at køre koden, og når dukker op KutoolsforExcel i dialogboksen, vælg det område, du vil tilføje tekst til, og klik til sidst på OK .

Nu tilføjes den angivne tekst efter det første tegn i de valgte celler.

Bemærk: I ovenstående kode indsætter du en bestemt værdi efter det første tegn i cellen, du kan ændre tallet 1 og 2 til tallet 2 og 3, hvis du tilføjer teksten efter det andet tegn i dette script VBA.Links (Rng.Value, 1) & "D" & VBA.Mid (Rng.Value, 2, VBA.Len (Rng.Value) - 1), og bogstavet D er den nye tekst, du vil indsætte.

Tilføj tekst midt i markerede celler med Kutools til Excel

Vi må indrømme, at de to ovennævnte metoder er ubelejlige for os. Her vil jeg vise dig tilføje tekst nytte af Kutools til Excel, med dette værktøj kan du nemt angive den midterste position på listen og derefter tilføje den bestemte tekst til den position på hele listen på samme tid.

1. Vælg den liste, du vil tilføje tekst i midten af ​​cellerne, og klik derefter på Kutools > tekst > tilføje tekst. Se skærmbillede:

2. i tilføje tekst dialogboksen, skal du indtaste den tekst, du vil føje til celler i tekst i feltet, angiv den position, hvor du vil tilføje teksten ved at markere Angiv valgmulighed (her indtaster jeg nummer 1), og klik derefter på OK knap. (Du kan øjeblikkeligt forhåndsvise tilføjelsesresultatet i højre boks)

Bemærk: For at tilføje tekst i flere positioner i den valgte celle på én gang kan du angive positionerne med komma adskilt i Angiv boks. Se skærmbillede:

Nu tilføjes den angivne tekst efter det første bogstav på den valgte liste.

Tilføj tekst midt i markerede celler med Kutools til Excel

Relateret artikel:.

• Hvordan tilføjes tekst til begyndelsen eller slutningen af ​​alle celler i Excel?

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...