Ինչպե՞ս Excel- ում քաղել վերջին թիվը տեքստի տողից:
Ենթադրելով, որ դուք ունեք տեքստային տողերի ցուցակ, որոնք խառնվել են տեքստերի և թվերի հետ, այժմ դուք պետք է հանեք թվերի վերջին հավաքածուն, ինչպես ցույց է տրված հետևյալ նկարը: Ինչպե՞ս կարող էիք գործը վարել Excel- ում:
VBA կոդով հանեք վերջին թվերը տեքստային տողերից
VBA կոդով հանեք վերջին թվերը տեքստային տողերից
Թվերի վերջին շարքը տեքստային տողերից արագ արդյունահանելու համար կարող եք կիրառել հետևյալ VBA կոդը: Խնդրում եմ, արեք այսպես.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Տեքստային տողերից հանիր վերջին համարները.
Sub GetLastDigits()
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xRegEx As Object
Dim xRetList As Object
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column can be available", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "(\d+)"
End With
For Each xCell In xRg
Set xRetList = xRegEx.Execute(xCell.Value)
If xRetList.Count > 0 Then
If Left(xRetList(xRetList.Count - 1), 1) = 0 Then
xCell.Offset(0, 1) = Right(xRetList(xRetList.Count - 1), Len(xRetList(xRetList.Count - 1)) - 1)
Else
xCell.Offset(0, 1) = xRetList(xRetList.Count - 1)
End If
End If
Next
End Sub
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հայտնվում է հուշման տուփ, որը հիշեցնում է ձեզ ընտրել տվյալների տիրույթը, որը ցանկանում եք օգտագործել, տե՛ս նկարը.
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, և թվերի վերջին հավաքածուն արդյունահանվել է յուրաքանչյուր տեքստի տողերից հարակից սյունի բջիջների մեջ, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: