Turinys
Kai kuriais atvejais mums gali prireikti tik lyginti eilučių tekstus ir pabrėžti jų panašumus ar skirtumus "Excel" programoje. Šiame straipsnyje rasite aštuonis paprastus būdus, kaip palyginti tekstą "Excel" programoje ir pabrėžti skirtumus.
Atsisiųsti praktikos knygą
Nemokamą "Excel" šabloną galite atsisiųsti iš čia ir praktikuotis savarankiškai.
Palyginkite tekstą ir paryškinkite skirtumus.xlsm5 greiti būdai palyginti tekstą "Excel" programoje ir paryškinti tos pačios eilutės skirtumus
Pirmiausia susipažinkime su mūsų duomenų rinkiniu. Du mėnesius iš eilės internetinėje parduotuvėje patalpinau keletą geriausiai parduodamų knygų. Dabar jas palyginsiu ir išryškinsiu skirtumus naudodamasis keliais paprastais metodais. Pirmiausia parodysiu, kaip tai padaryti toms pačioms eilutėms.
1 būdas: TIKRA funkcija
TIKRA funkcija naudojamas palyginti dvi eilutes arba duomenis vienas su kitu ir pateikia rezultatą, ar abu duomenys tiksliai sutampa, ar ne. Panaudokime jį savo pirmajam metodui. Kad parodyčiau išvestį, pridėjau naują stulpelį, pavadintą "Remark".
1 žingsnis:
⏩Aktyvinti D5 langelis
=EXACT(B5,C5)
⏩Tada paspauskite Įveskite mygtuką.
2 žingsnis:
⏩Po to dukart spustelėkite . Užpildymo rankena piktogramą, kad nukopijuotumėte formulę kitoms ląstelėms.
Dabar pažvelkite į išvestį, kurią jis rodo FALSE skirtingoms vertėms ir TRUE toje pačioje eilutėje esančioms suderintoms reikšmėms.
Skaityti daugiau: Palyginkite dvi "Excel" ląsteles ir grąžinkite TRUE arba FALSE (5 greiti būdai)
2 metodas: loginė logika
Tą pačią operaciją galime atlikti naudodami paprastą Loginis veiksnys logika. Skirtingoms reikšmėms bus rodoma TRUE ir FALSE toje pačioje eilutėje esančioms suderintoms reikšmėms.
1 žingsnis:
⏩Įrašykite pateiktą formulę D5 langelis -
=B5C5
⏩Spauskite Įveskite mygtuką ir pritaikykite Užpildymo rankena piktogramą, kad nukopijuotumėte formulę.
Štai mūsų išvestis -
3 metodas: IF funkcija
Jei naudojate funkcija IF su Loginis veiksnys logika, tada galime gauti išvestį su mūsų nurodytu tekstu. Nustatau, kad bus rodomas "Unikalus", jei bus gautas skirtingas tekstas, ir "Panašus", jei bus gautas tas pats tekstas.
Žingsniai:
⏩In D5 langelis įveskite formulę-
=IF(B5C5, "Unikalus", "Panašus")
⏩Tada tiesiog spustelėkite Įveskite mygtuką ir naudokite Užpildymo rankena įrankis.
Dabar gausite išvestį su nurodytu tekstu.
Skaityti daugiau: Grąžinti TAIP, jei "Excel" programoje sutampa 2 ląstelės (10 metodų)
4 metodas: sąlyginis formatavimas naudojant formulę
Sąlyginis formatavimas yra labai patogi parinktis tekstui palyginti ir skirtumams paryškinti "Excel" programoje. Čia skirtumams paryškinti galime naudoti iš anksto pasirinktas spalvas.
1 žingsnis:
⏩Pasirinkite duomenų diapazoną B5:C12
⏩Tada spustelėkite taip: Pagrindinis> Sąlyginis formatavimas> Nauja taisyklė
Atsidarys formatavimo dialogo langas.
2 žingsnis:
⏩ Paspauskite U se formulę, pagal kurią nustatoma, kurias ląsteles formatuoti. iš Pasirinkite taisyklės tipą dėžutė.
⏩Vėliau įveskite toliau pateiktą formulę į Formuoti reikšmes, kai ši formulė yra teisinga dėžutė -
=$B5$C5
⏩Paspauskite Formatas.
Tada Formatuoti ląsteles' bus rodomas dialogo langas.
3 veiksmas:
⏩ Pasirinkite norimą spalvą iš Užpildykite Pasirinkau šviesiai žalią spalvą.
⏩Press Gerai ir bus grįžta į ankstesnį dialogo langą.
4 veiksmas:
⏩ Šiuo metu tiesiog paspauskite GERAI .
Dabar matote, kad visos toje pačioje eilutėje esančios skirtingos reikšmės paryškintos pasirinkta spalva.
Skaityti daugiau: Kaip palyginti dvi ląsteles ir pakeisti spalvą programoje "Excel" (2 būdai)
5 metodas: "Excel" VBA makrokomandos
Užuot naudojęsi integruotomis funkcijomis, "Excel" programoje galime koduoti, kad atliktume bet kokią norimą operaciją. Šiuo metodu išryškinsiu skirtumus toje pačioje eilutėje naudodamas VBA kodai.
1 žingsnis:
⏩ Dešiniuoju pelės klavišu spustelėkite pelę prie lapo pavadinimo, kad atidarytumėte VBA langas.
2 žingsnis:
⏩Įrašykite toliau pateiktus kodus.
Sub highlight() Dim yRange1 As Range Dim yRange2 As Range Dim yText As String Dim yCell1 As Range Dim yCell2 As Range Dim I As Long Dim J As Integer Dim yLen As Integer Dim yDiffs As Boolean On Error Resume Next If ActiveWindow.RangeSelection.Count> 1 Then yText = ActiveWindow.RangeSelection.AddressLocal Else yText =ActiveSheet.UsedRange.AddressLocal End If lOne: Set yRange1 = Application.InputBox("Range A:", "Compare Text", yText, , , , , , 8) If yRange1 Is Nothing Then Exit Sub If yRange1.Columns.Count> 1 Or yRange1.Areas.Count> 1 Then MsgBox "Pasirinkti keli diapazonai arba stulpeliai", vbInformation, "Compare Text" GoTo lOne End If lTwo: Set yRange2 =Application.InputBox("Range B:", "Compare Text", "", , , , , , 8) If yRange2 Is Nothing Then Exit Sub If yRange2.Columns.Count> 1 Or yRange2.Areas.Count> 1 Then MsgBox "Pasirinkti keli diapazonai arba stulpeliai ", vbInformation, "Compare Text" GoTo lTwo End If If yRange1.CountLarge yRange2.CountLarge Then MsgBox "Two selected ranges must have thetas pats ląstelių skaičius ", vbInformation, "Compare Text" GoTo lTwo End If yDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Compare Text") = vbNo) Application.ScreenUpdating = False yRange2.Font.ColorIndex = xlAutomatic For I = 1 To yRange1.Count Set yCell1 = yRange1.Cells(I) Set yCell2 =yRange2.Cells(I) If yCell1.Value2 = yCell2.Value2 Then If Not yDiffs Then xCell2.Font.Color = vbRed Else yLen = Len(yCell1.Value2) For J = 1 To yLen If Not yCell1.Characters(J, 1).Text = yCell2.Characters(J, 1).Text Then Exit For Next J If Not yDiffs Then If J 1 ThenyCell2.Characters(1, J - 1).Font.Color = vbRed End If Else If J <= Len(yCell2.Value2) Then yCell2.Characters(J, Len(yCell2.Value2) - J + 1).Font.Color = vbRed End If End If End If End If Next Application.ScreenUpdating = True End Sub
⏩Vėliau paspauskite Paleisti piktogramą, kad paleistumėte kodus.
Dabar bus atvertas dialogo langas, kuriame bus galima pasirinkti pirmąjį duomenų intervalą.
3 veiksmas:
⏩Pasirinkite diapazoną B5:C12
⏩Press GERAI tada bus atidarytas kitas dialogo langas, kuriame bus galima pasirinkti antrąjį duomenų intervalą.
4 veiksmas:
⏩Nustatykite duomenų diapazoną C5:C12
⏩Press GERAI dar kartą.
5 veiksmas:
⏩Nuo šiol norėdami paryškinti skirtumus tiesiog paspauskite Ne mygtuką.
Dabar pažiūrėkite, kad tose pačiose eilutėse esantys skirtingi tekstai yra paryškinti raudona spalva.
3 greiti būdai, kaip palyginti tekstą "Excel" programoje ir paryškinti visų eilučių skirtumus
1 būdas: sąlyginis formatavimas
Galime naudoti Sąlyginis formatavimas įrankis palyginti tekstą "Excel" programoje ir paryškinti skirtumus visoms eilutėms be jokių formulių.
1 žingsnis:
⏩ Pasirinkite duomenų diapazoną B5:C12
⏩Tada spustelėkite taip: Pagrindinis> Sąlyginis formatavimas> Ląstelių paryškinimo taisyklės> Dubliuojančios vertės .
Atsidarys dialogo langas.
2 žingsnis:
⏩ Pasirinkite Unikalus parinktį ir norimą spalvą iš Formatuokite ląsteles, kuriose yra dėžutė.
⏩ Galiausiai paspauskite GERAI .
Dabar visi skirtingi tekstai paryškinami mūsų pasirinkta spalva.
2 metodas: IF+COUNTIF funkcijos
Norėdami palyginti tekstą "Excel" programoje ir išryškinti skirtumus, dabar sujungsime dvi funkcijas, kurios yra- funkcija IF ir COUNTIF funkcija . Čia patikrinsime tekstą B stulpelis ar jie yra paplitę C stulpelis arba ne bet kurioje eilutėje. IF funkcija tikrina, ar tenkinama sąlyga, ir grąžina vieną reikšmę, jei tiesa, ir kitą reikšmę, jei netiesa. COUNTIF naudojama skaičiuoti ląstelėms, kurios atitinka vieną sąlygą.
Žingsniai:
⏩Įveskite formulę į D5 langelis -
=IF(COUNTIF($C$5:$C$12,$B5)=0, "Nėra atitikmens C", "Atitikmuo C")
⏩Naudokite Įveskite mygtuką.
⏩ Galiausiai naudokite Užpildymo rankena piktogramą, kad nukopijuotumėte kombinuotą formulę.
Dabar galime lengvai nustatyti skirtumus iš toliau pateikto paveikslėlio -
⏬ Formulės suskirstymas:
➥ COUNTIF($C$5:$C$12,$B5)=0
Svetainė COUNTIF funkcija patikrins vertę Ląstelė B5 per diapazoną C5:C12 Jei lygus, tai bus grąžinama 1, jei ne - 0. Taigi išvestis bus grąžinama kaip-
FALSE
➥ IF(COUNTIF($C$5:$C$12,$B5)=0, "Nėra atitikmens C", "Atitikmuo C")
Galiausiai IF funkcija parodys "Nėra atitikmens C", jei FALSE ir "Match in C", skirtą TRUE . Jis grįš kaip-
Nėra atitikmens C kategorijoje
3 metodas: ISERROR+VLOOKUP funkcijos
Galiausiai panaudokime kitą funkcijų derinį ankstesnei operacijai atlikti. Taikysime ISERROR ir VLOOKUP funkcijos. Ji patikrins tekstą B stulpelis per C stulpelis , jei jis gaus neįprastą tekstą, bus rodomas TRUE jei ne, bus rodomas FALSE . ISERROR funkcija "Excel" tikrina, ar reikšmė yra klaida, ir grąžina TRUE arba FALSE . VLOOKUP funkcija naudojama lentelės kairiajame stulpelyje esančiai reikšmei ieškoti ir grąžina atitinkamą dešiniojo stulpelio reikšmę.
Žingsniai:
⏩Įrašykite pateiktą formulę į D5 langelis -
=ISERROR(VLOOKUP(B5,$C$5:$C$12,1,0))
⏩Tada tiesiog paspauskite Įveskite mygtuką ir naudokite Užpildymo rankena įrankį, kad nukopijuotumėte formulę.
Dabar žiūrėkite išvestį toliau pateiktame paveikslėlyje-
⏬ Formulės suskirstymas:
➥ VLOOKUP(B5,$C$5:$C$12,1,0)
Svetainė VLOOKUP funkcija patikrins Ląstelė B5 per diapazoną C5:C12 . Jei bus rasta bendra vertė, bus rodoma ši vertė, priešingu atveju bus rodoma #N/A . Taigi jis grįžta Ląstelė B5 -
#N/A
➥ ISERROR(VLOOKUP(B5,$C$5:$C$12,1,0))
Tada ISERROR funkcija parodys " TRUE " #N/A ir " FALSE " kitiems išėjimams. For Ląstelė B5 bus grąžinta kaip-
"TRUE"
Išvada
Tikiuosi, kad visi pirmiau aprašyti metodai bus pakankamai geri, kad galėtumėte palyginti tekstą "Excel" programoje ir išryškinti skirtumus. Drąsiai užduokite bet kokius klausimus komentarų skiltyje ir prašau pateikti man atsiliepimus.