Ինչպե՞ս վերափոխել տեքստի տողը պատշաճ դեպքում ՝ բացառությամբ 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
