Denna handledning visar hur du använder vänster VBA -funktion.
Vänster funktion
VBA Left -funktionen returnerar de första n -tecknen från en sträng.
VBA vänster funktion n första tecken
VBA Left -funktionen returnerar de första n -tecknen från en sträng:
123456 | Sub vänsterexempel_1 ()MsgBox vänster ("ABCDEFGHI", 4) 'Resultat är: "ABCD"MsgBox vänster ("ABCDEFGHI", 2) 'Resultat är: "AB"MsgBox vänster ("ABCDEFGHI", 1) 'Resultat är: "A"MsgBox vänster ("ABCDEFGHI", 100) 'Resultat är: "ABCDEFGHI"Avsluta Sub |
VBA vänster funktion n första tecken i en variabel
Som visas ovan kan du definiera en sträng helt enkelt genom att ange text omgiven av citattecken. Men VÄNSTER -funktionen fungerar också med strängvariabler. Dessa exempel kommer att extrahera de första n -tecknen från en strängvariabel.
1234567891011 | Sub vänsterExempel_2 ()Dim StrEx As String 'Definiera en strängvariabelStrEx = "ABCDEFGHI"MsgBox vänster (StrEx, 4) 'Resultatet är: "ABCD"MsgBox vänster (StrEx, 2) 'Resultatet är: "AB"MsgBox vänster (StrEx, 1) 'Resultatet är: "A"MsgBox vänster (StrEx, 100) 'Resultat är: "ABCDEFGHI"Avsluta Sub |
VBA vänster funktion n första tecken i en cell
Strängar kan definieras i VBA -kod men du kan också använda värden från celler. Läs värdet på en cell, behåll den i en strängvariabel och extrahera n första tecken från det kalkylbladets cellvärde.
12345678910111213 | Sub vänsterExempel_3 ()Dim StrEx As String 'Definiera en strängvariabel'Läs värdet för cell A1 i kalkylblad 1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Område ("A1"). Värde'I detta exempel är värdet för cell A1 "A bCDEFGHI"MsgBox vänster (StrEx, 4) 'Resultatet är: "ABCD"MsgBox vänster (StrEx, 2) 'Resultatet är: "AB"MsgBox vänster (StrEx, 1) 'Resultatet är: "A"MsgBox vänster (StrEx, 100) 'Resultat är: "ABCDEFGHI"Avsluta Sub |
VBA Vänster funktion Klipp av den sista bokstaven
För att ta bort bokstäver från slutet av en sträng, använd VÄNSTER -funktionen tillsammans med LEN -funktionen.
VBA LEN -funktionen räknar antalet tecken i en sträng:
1 | Len (StrEx) |
Genom att kombinera funktionerna kan vi ta bort ett visst antal tecken från slutet av strängen:
123456789 | Sub vänsterExempel_4 ()Dim StrEx As String 'Definiera en strängvariabelStrEx = "ABCDEF"MsgBox vänster (StrEx, Len (StrEx)) 'Resultat är: "ABCDEF"MsgBox vänster (StrEx, Len (StrEx) - 1) 'Resultat är: "ABCDE"MsgBox vänster (StrEx, Len (StrEx) - 2) 'Resultat är: "ABCD"Avsluta Sub |
VBA kvar för att extrahera förnamn
För att extrahera förnamnet från en sträng med ett fullständigt namn, använd den vänstra funktionen tillsammans med Instr -funktionen.
VBA Instr -funktionen söker efter en delsträng inuti en sträng och returnerar positionsnumret för delsträngen.
1 | InStr (StrEx, "") |
Genom att kombinera funktionerna kan vi extrahera det första ordet från en fras:
12345678910111213141516171819 | Sub vänsterExempel_5 ()Dim StrEx As String 'Definiera en strängvariabelStrEx = "Alexander Graham Bell"MsgBox vänster (StrEx, InStr (StrEx, ""))'Resultatet är: "Alexander" (notera utrymmet i slutet)MsgBox vänster (StrEx, InStr (StrEx, "") - 1)'Resultat är: "Alexander" (INGEN blanksteg i slutet)StrEx = "Leonardo da Vinci"MsgBox InStr (StrEx, "")'Resultatet är: 9 eftersom utrymme finns i position 9MsgBox vänster (StrEx, InStr (StrEx, "") - 1)'Resultatet är: "Leonardo"Avsluta Sub |