Hoe voegt u tekst toe in het midden van geselecteerde cellen in Excel?
Tekst toevoegen in het midden van geselecteerde cellen in Excel is een handige techniek om gegevens overzichtelijk te organiseren en professioneel weer te geven. In deze handleiding vindt u duidelijke, stapsgewijze instructies voor het invoegen van nieuwe tekst binnen de bestaande celinhoud met behulp van ingebouwde Excel-functies.
Tekst toevoegen in het midden van geselecteerde Formule
In dit gedeelte geven we u de formule om tekst in het midden van geselecteerde cellen in te voegen. Volg de onderstaande stappen.
1. Deze methode vereist een hulpkolom. Selecteer de lege cel naast uw oorspronkelijke gegevens – in dit voorbeeld cel B2.
2. Kopieer en plak de formule =LINKS(A2;1) & „D" & DEEL(A2;2;100) in de formulebalk en druk daarna op de Enter-toets. Zie de schermafbeelding:
Opmerkingen:
- 1). In de formule geeft het getal 1 aan dat de tekst wordt ingevoegd na het eerste teken van de cel.
- 2). De getallen 2 en 100 geven aan dat de tekens vanaf het tweede tot en met het honderdste teken uit de oorspronkelijke cel na de nieuw ingevoegde tekst worden toegevoegd.
- 3). Als u tekst wilt toevoegen na het tweede teken, wijzigt u het getal 1 in 2 en het getal 2 in 3 in de formule.
- 4). Het teken „D” is de tekst die u aan de cel wilt toevoegen; pas deze aan op basis van uw behoeften.
3. Selecteer cel B2 en sleep de vulgreep naar beneden tot de cel die u met deze formule wilt vullen. U ziet dat de tekst automatisch gecentreerd wordt in alle cellen van de lijst.
Tips: Naast de bovenstaande formule kunt u ook deze formule gebruiken: =REPLACE(A2,2,0,„D") (het getal 2 geeft de positie aan waar u de tekst wilt invoegen en de letter D staat voor de tekst die u wilt toevoegen; u kunt beide naar wens aanpassen). Druk daarna op Enter om het resultaat te krijgen.
Tekst toevoegen in het midden van geselecteerde cellen met Kutools voor Excel
We moeten toegeven dat de bovenstaande twee methoden nogal onhandig zijn. Hieronder laat ik u het Tekst toevoegen-hulpprogramma van Kutools voor Excel zien. Met dit handige hulpprogramma geeft u eenvoudig de middelste positie van uw lijst op en voegt u tegelijkertijd de gewenste tekst op die plek in de hele lijst in.
1. Selecteer de lijst waarin u tekst wilt toevoegen in het midden van de cellen en klik vervolgens op Kutools > Tekst > Tekst toevoegen. Zie de schermafbeelding:
2. Voer in het dialoogvenster Tekst toevoegen de tekst die u aan de cellen wilt toevoegen in het vak Tekst, geef de positie op waarop u de tekst wilt toevoegen door de optie Opgeven te selecteren (hier voer ik het getal 1 in) en klik op de knop OK (u kunt het resultaat direct bekijken in het vak rechts).
Opmerking: Als u tekst op meerdere posities tegelijk wilt toevoegen in geselecteerde cellen, geeft u de posities gescheiden door komma’s op in het vak Opgeven. Zie de schermafbeelding:
De opgegeven tekst is nu toegevoegd na de eerste letter in de geselecteerde lijst.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Tekst toevoegen in het midden van geselecteerde cellen met VBA-code
Daarnaast kunt u met VBA-code tekst in het midden van geselecteerde cellen invoegen.
1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en kopieer de onderstaande VBA-code naar de code-editor.
VBA-code: Tekst toevoegen toevoegen aan een lijst met gegevens na het eerste teken
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 Sub3. Druk op de F5-toets om de code uit te voeren. Selecteer in het verschijnende dialoogvenster Kutools for Excel het bereik waaraan u tekst wilt toevoegen en klik ten slotte op de knop OK.
De opgegeven tekst is nu toegevoegd na het eerste teken van de geselecteerde cellen.
Opmerking: In de bovenstaande code voegt u een specifieke waarde in na het eerste teken in de cel. Wilt u de tekst na het tweede teken invoegen? Pas dan het getal 1 en 2 respectievelijk aan naar 2 en 3 in dit script:VBA.Links(Rng.Value; 1) & „D" & VBA.Deel(Rng.Value; 2; VBA.Len(Rng.Value) - 1). De letter D is de nieuwe tekst die u wilt invoegen.
In deze handleiding worden drie methoden beschreven om dit te realiseren: met Excel-formules, met de invoegtoepassing Kutools voor Excel en met VBA-code. Elke methode biedt een unieke aanpak om nieuwe tekst binnen de bestaande celinhoud in te voegen, afgestemd op verschillende niveaus van Excel-kennis en gebruikersbehoeften. Wilt u nog meer Excel-tips en -trucs ontdekken? Onze website bevat duizenden tutorials.Klik hier om ze te bekijken.
Gerelateerd artikel:.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins