Բաց թողնել հիմնական բովանդակությունը

 Ինչպե՞ս վերափոխել տեքստի տողը պատշաճ դեպքում ՝ բացառությամբ 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 երկխոսություններից դուրս գալու համար, և բոլոր տեքստային տողերը փոխարկվել են պատշաճ դեպքի, բայց բացառում են նշված բառերը, տես նկարի նկարը.

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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This would be amazing if only the Macro excluded the part of the sting in CAPS not the entire cell from the exceptions list.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations