İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də oxşarlıq və ya fərqləri ayırmaq üçün iki sətir müqayisə etmək üçün necə?

Bəzi hallarda, yalnız iki bitişik hüceyrəni müqayisə etmək və Excel-də oxşarlıqları və ya fərqlərini qeyd etmək lazımdır. Bu məqalədə sizə nail olmaq üçün iki üsul təqdim olunur.

İki dildən formula ilə müqayisə edin

VBA kodu ilə oxşarlıq və ya fərqi fərqləndirmək üçün iki simvolu müqayisə edin


Asanlıqla iki aralıq / iş səhifəsini müqayisə edin və Excel-də eyni / fərqli hüceyrələri qeyd edin

Basın Kutools > seçmək > Eyni və Müxtəlif Hücreləri seçin. Bu Excel üçün Kutools's Eyni & Fərqli Hüceyrələri seçin yardım proqramı asanlıqla iki aralığın və ya işin müqayisə olunmasını və sonra Excel-də eyni və ya fərqli hüceyrələri qeyd etməyə kömək edir. Aşağıdakı ekran görüntüsünə baxın:

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


İki dildən formula ilə müqayisə edin


Aşağıda göstərilən ekran göründüyü kimi, sadəcə müqayisə edilmiş strings eşleşen olub-olmadığını bilmək istəyirsinizsə, aşağıdakı formulu tətbiq edə bilərsiniz.

1. Boş bir C2 hücresi seçin, formulla daxil edin = EXACT (A2, B2) Formula Çubuğuna daxil edin və sonra Enter düyməsini basın. Ekran görüntüsünə baxın:

Qeyd: Formada A2 və B2 müqayisə edən simləri olan hüceyrələrdir.

2. Nəticə hücresini seçməyinizi xahiş edin, daha sonra bütün müqayisəli nəticələr əldə edildikdən sonra Doldurma Tutacaqını hüceyrələrə sürükləyin.

FALSE nəticə, müqayisəli strinqlərin fərqli olduğunu və TRUE nəticə iki müqayisəli strinqin eşleştiğini göstərir. Ekran görüntüsünə baxın:


VBA kodu ilə oxşarlıq və ya fərqi fərqləndirmək üçün iki simvolu müqayisə edin

İki iplə müqayisə etmək və onların arasında olan oxşarlıqları və fərqləri vurğulamaq istəyirsinizsə. Aşağıdakı VBA kodu sizə kömək edə bilər.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra aşağıdakı kodu Kod qovluğuna kopyalayıb yapışdırın.

VBA kodu: İki sütunlu simvolu bənzərlik və ya fərqləndirici fərqlər müqayisə edin

Sub highlight()
    Dim xRg1 As Range
    Dim xRg2 As Range
    Dim xTxt As String
    Dim xCell1 As Range
    Dim xCell2 As Range
    Dim I As Long
    Dim J As Integer
    Dim xLen As Integer
    Dim xDiffs As Boolean
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg1 Is Nothing Then Exit Sub
    If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
lTwo:
    Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
    If xRg2 Is Nothing Then Exit Sub
    If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
        MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lTwo
    End If
    If xRg1.CountLarge <> xRg2.CountLarge Then
       MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Font.ColorIndex = xlAutomatic
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value2 = xCell2.Value2 Then
            If Not xDiffs Then xCell2.Font.Color = vbRed
        Else
            xLen = Len(xCell1.Value2)
            For J = 1 To xLen
                If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
            Next J
            If Not xDiffs Then
                If J <= Len(xCell2.Value2) And J > 1 Then
                    xCell2.Characters(1, J - 1).Font.Color = vbRed
                End If
            Else
                If J <= Len(xCell2.Value2) Then
                    xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
                End If
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Birincisi Excel üçün Kutools informasiya qutusunda, müqayisə etmək üçün lazım olan mətn dizgilərinin ilk sütunu seçin və sonra basın OK düyməsini basın.

4. Sonra ikinci Excel üçün Kutools informasiya qutusu açılır, ikinci sütun strings seçin və basın OK düyməsini basın.

5. Sonda Excel üçün Kutools dialoq qutusu, simvolları bənzərlik müqayisə etmək istəyirsinizsə, basın bəli düyməsini basın. Və müqayisəli strings fərqlər qeyd etmək üçün, basın Yox düyməsini basın. Ekran görüntüsünə baxın:

Sonra göstərilən ekran görüntüsünün göstərildiyi kimi müqayisəli nəticələri görə bilərsiniz.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Yogesh · 1 years ago
    Above code dose not works if any cell contains formula.
  • To post as a guest, your comment is unpublished.
    suryateja · 1 years ago
    Dear sir,
    Thank you very much for your VBA code.

    It is very much helpful.

    Actually i dont have any knowledge about coding.
    So, even to modify a little part of coding according to my requirement, i am helpless

    I have one request about this coding to make it more efficient and user friendly.
    Could you please help me??

    The main objective of above coding is to find and highlight the differences between the data in two columns for easy reference.
    But, this coding is little complicated as objective is concerned.

    Becuase, it is considering the "spaces" between the content and it is highlight the entire data even though the strings are same.
    So, if we can compare the data without spaces, then we can filter the portion of highlighted data.
    Also, instead of highlighting only the strings those which are not similar, it is hightlighting entire data right from the first different string to the data till the end of the cell.

    Hence, i would like to conclude my request as below 2 points.
    1) please edit the coding to compare the cells without consideirng the spaces
    2) please edit the coding in such a way that it can highlight only different strings but not highlighting entire para from the first different string point.

    Thank you very much for you help.

    Regards,
    Surya
    • To post as a guest, your comment is unpublished.
      Salai · 1 years ago
      i have the same request as suryateja.
      2) please edit the coding in such a way that it can highlight only different strings but not highlighting entire para from the first different string point.