Note: The other languages of the website are Google-translated. Back to English

 Ինչպե՞ս վերափոխել տեքստի տողը պատշաճ դեպքում ՝ բացառությամբ Excel- ում:

Excel- ում դուք կարող եք կիրառել perիշտ գործառույթը `տեքստային տողերը հեշտությամբ փոխարկելու պատուհանի վրա, բայց, երբեմն, հարկավոր է բացառել որոշ հատուկ բառեր, երբ տեքստի տողերը պատշաճ դեպքում վերափոխեք, ինչպես ցույց է տրված հետևյալ նկարը Այս հոդվածում ես կխոսեմ Excel- ում այս աշխատանքը լուծելու մի քանի արագ հնարքների մասին:

Տեքստային տողերը բացառությունների հետ փոխիր պատշաճ դեպքում ՝ օգտագործելով բանաձևը

Վերափոխեք տեքստի տողերը պատշաճ դեպքում `բացառություններով, օգտագործելով VBA կոդ


Տեքստային տողերը բացառությունների հետ փոխիր պատշաճ դեպքում ՝ օգտագործելով բանաձևը

Կարող է լինել հետևյալ բանաձևը, որը կօգնի ձեզ արագ զբաղվել այս խնդրով, խնդրում եմ արեք հետևյալ կերպ.

Մուտքագրեք այս բանաձևը.

= ՎԵՐ ((ՁԱ ((A2)) և ԿԻՍԱ "," is ")," Usa "," USA ")), 2, LEN (A2)) բջիջի մեջ, որտեղ ցանկանում եք արդյունք ստանալ, ապա քաշեք լրացնելու բռնիչը ՝ այս բանաձևը լրացնելու համար, և տեքստի տողերը փոխարկվել են պատշաճ կերպով, բայց հատուկ բացառություններով, տե՛ս նկարը.

ՆշումՎերոհիշյալ բանաձևում A2 այն բջիջն է, որը ցանկանում եք փոխարկել, «Of», «A», «Is», «Usa» փոխակերպումից հետո նորմալ պատշաճ գործի բառերը են, «Of», «a», «is», «ԱՄՆ» այն բառերը են, որոնք ցանկանում եք բացառել պատշաճ գործից: Փոխարինել գործառույթով կարող եք դրանք փոխել ձեր կարիքի կամ այլ բառեր ավելացնել:


Վերափոխեք տեքստի տողերը պատշաճ դեպքում `բացառություններով, օգտագործելով VBA կոդ

Եթե ​​վերը նշված բանաձևը որոշ չափով դժվար է հասկանալ և փոխել ձեր կարիքը, ապա այս գործը ավարտելու համար կարող եք նաև կիրառել VBA կոդ: Խնդրում ենք կատարեք հետևյալ քայլերը մեկ առ մեկ:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Տեքստային տողերը փոխարկելու պատշաճ պատյան ՝ բացառություններով.

Sub CellsValueChange()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
    If xPRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            If Not IsNumeric(xRgVal) Then
                xRgVal = CorrectCase(xRgVal, xPRg)
                xDRg.Offset(KK).Value = xRgVal
            End If
            KK = KK + 1
        Next
    Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
    Dim xArrWords As Variant
    Dim I As Integer
    Dim xPointer As Integer
    Dim xVal As String
    xPointer = 1
    xVal = xRgVal
    xArrWords = WordsOf(xRgVal)
    For I = 0 To UBound(xArrWords)
        xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
        Debug.Print xPointer
        Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
    Next I
    CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
    Dim xDelimiters As Variant
    Dim xArrRtn As Variant
    xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
    For Each xEachDelimiter In xDelimiters
        xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
    Next xEachDelimiter
    xArrRtn = Split(Trim(xRgVal), " ")
    WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
    With xERg
        If IsError(Application.Match(xArrWord, .Cells, 0)) Then
            CorrectCaseOneWord = Application.Proper(xArrWord)
        Else
            CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
        End If
    End With
End Function

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշվում է արագ տուփ, որը հիշեցնում է ձեզ ընտրել այն բնօրինակ բջիջները, որոնք ցանկանում եք փոխարկել, տեսեք,

4. Եվ այնուհետեւ կտտացրեք OK, ընտրեք այն բջիջները, որտեղ ցանկանում եք արդյունքները դուրս բերել դուրս եկած արկղում, տե՛ս նկարը.

5, Անցեք կտտոցով OK, և ելնող երկխոսության տուփում ընտրեք այն տեքստերը, որոնք ցանկանում եք բացառել, տես նկարի նկարը.

6. Եվ այնուհետեւ կտտացրեք OK երկխոսություններից դուրս գալու համար, և բոլոր տեքստային տողերը փոխարկվել են պատշաճ դեպքի, բայց բացառում են նշված բառերը, տես նկարի նկարը.


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (1)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա զարմանալի կլիներ, եթե միայն Macro-ն բացառեր բացառությունների ցանկից խայթոցի մասը CAPS-ով և ոչ ամբողջ բջիջը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից