Ինչպե՞ս Excel- ում դուրս բերել թվեր խառը ալֆան թվային տողերից:
Այս ձեռնարկը տրամադրում է երեք մեթոդ, որոնք կօգնեն Excel- ում խառնված ալֆանրաթելային տեքստի տողից թվեր հանել:
Ձեռք բերեք համարներ բանաձևով խառնված ալֆան թվային տեքստի տողերից
VBA կոդով համարներ հանիր խառնված ալֆան թվային տեքստի տողերից
Amazingարմանալի գործիքով հեշտությամբ հանեք թվեր խառն ալֆան թվային տեքստի տողերից
Ձեռք բերեք համարներ բանաձևով խառնված ալֆան թվային տեքստի տողերից
Դուք կարող եք կիրառել ստորև բերված բանաձևը ՝ Excel- ում տեքստի տողի ցանկացած տեղից թվեր հանելու համար:
1. Ընտրեք դատարկ բջիջ `արդյունահանված համարները դուրս բերելու համար, մեջը մուտքագրեք ստորև բերված բանաձևը և սեղմեք այն Մտնել բանալի. Դրանից հետո քարշ տվեք AutoFill Handle- ը ներքև `բանաձևը այլ բջիջների վրա կիրառելու համար:
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
ՆշումԲանաձևում A1- ն այն բջիջն է, որը կապում է տեքստի տողը, որը ցանկանում եք արդյունքներ հանել: Խնդրում ենք փոխել այն ՝ ելնելով ձեր կարիքներից:
Դրանից հետո թվերը հանվում են նշված բջիջներում տեքստի տողի ցանկացած վայրից, ինչպես ցույց է տրված վերը նշված էկրանի նկարը:
Թվերը պահեք միայն խառն ալֆան թվային տեքստի մեջ ՝ VBA կոդով
Հաջորդ VBA կոդը կարող է օգնել ձեզ հեռացնել բոլոր ոչ թվային նիշերը նշված տիրույթից և միայն համարները պահել բջիջներում: Խնդրում եմ արեք հետևյալ կերպ.
ՆշումՔանի որ ծածկագիրն ուղղակիորեն արտազատում է բնօրինակի տիրույթը, տվյալների կորստի դեպքում պահեք բնօրինակ տիրույթի պատճենը:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA կոդ. Բջիջներից հեռացնել բոլոր ոչ թվային նիշերը
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը հայտնվում է, խնդրում ենք ընտրել այն տիրույթը, որը պարունակում է խառն ալֆան թվային տեքստի տողեր, որոնք կպահեք միայն թվերը և կտտացրեք OK կոճակը:
Այժմ ընտրված տիրույթի բոլոր ոչ թվային նիշերը անմիջապես հանվել են, և միայն պահպանված թվերը: Տեսեք,
Excel- ի համար Kutools- ի հետ հեշտությամբ հանեք թվեր խառնված ալֆան թվային տեքստի տողերից
Այս բաժինը առաջարկում է Excel- ի համար Kutools- ի Extract Text օգտակարությունը: Այս օգտակարության միջոցով տեքստի տողից թվեր հանելը կարող է հեշտությամբ կարգավորել:
Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.
1: սեղմեք Կուտոլս > Տեքստ > Քաղվածք տեքստ գործառույթն ապահովելու համար:
2. Մեջ Քաղվածք տեքստ երկխոսության տուփ, խնդրում ենք կատարել ստորև նշված կարգավորումները:
կոճակը ՝ բջիջների շարքը ընտրելու համար, որից դուք տեքստ կստանաք:
Նշում: Ստուգել Տեղադրեք որպես բանաձև տուփը երկխոսության ներքևի ձախ անկյունում կտեղադրի արդյունքը որպես բանաձև արդյունքի բջիջների մեջ: Երբ հղված վանդակի արժեքը փոխվում է, արդյունքն ավտոմատ կթարմացվի:
3. Մեջ Քաղվածք տեքստ երկխոսության տուփ, ընտրեք դատարկ բջիջ `արդյունահանվող տեքստը դուրս բերելու համար, ապա կտտացրեք OK.
Այնուհետև արդյունքներ են դուրս բերվում տեքստի տողի ցանկացած դիրքից: Տեսեք,
Եթե ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
