Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk membandingkan dua lajur dan menyerlahkan data yang tidak dapat ditandingi dalam Excel?

Seperti gambar di bawah yang ditunjukkan, untuk membandingkan dua lajur sel bersebelahan dan menonjolkan data yang tidak dapat ditandingi, anda boleh mencuba kaedah dalam artikel.

Bandingkan dua lajur dan serlahkan data yang tidak dapat ditandingi dengan kod VBA

Bandingkan dua lajur dan serlahkan data yang tidak dapat ditandingi dengan Kutools untuk Excel


Mudah bandingkan dua lajur dan menyerlahkan data yang tidak dapat ditandingi:

Platform Bandingkan Ranges utiliti Kutools untuk Excel boleh membantu anda menyelesaikan masalah. Lihat tangkapan skrin di bawah:

  • Pilih dua lajur yang anda akan bandingkan untuk menonjolkan data yang tidak dapat ditandingi.
  • pilih Nilai yang berbeza pilihan.
  • Nyatakan warna latar belakang untuk menyerlahkan.

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma sekarang


anak panah gelembung kanan biru Bandingkan dua lajur dan serlahkan data yang tidak dapat ditandingi dengan kod VBA


Sebagai tangkapan skrin di atas, anda membandingkan data dalam Lajur A dan Lajur B. Sila jalankan kod VBA berikut untuk menyerlahkan data yang tidak dapat ditandingi.

1. Akhbar Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin dan tampal kod berikut ke dalam tetingkap Kod.

Kod VBA: Bandingkan dua lajur dan serlahkan data yang tidak dapat ditandingi

Sub Dyeware()
    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 ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
       GoTo lTwo
    End If
    xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
    Application.ScreenUpdating = False
    xRg2.Interior.ColorIndex = xlNo
    xRg1.Interior.ColorIndex = xlNo
    For I = 1 To xRg1.Count
        Set xCell1 = xRg1.Cells(I)
        Set xCell2 = xRg2.Cells(I)
        If xCell1.Value = xCell2.Value Then
            If Not xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        Else
            If xDiffs Then
                xCell1.Interior.Color = vbRed
                xCell2.Interior.Color = vbRed
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Tekan butang F5 kunci untuk menjalankan kod. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih lajur pertama yang anda perlu bandingkan, kemudian klik OK butang. Lihat tangkapan skrin.

4. Kemudian pilih lajur kedua yang dibandingkan dalam pop up berikutnya Kutools untuk Excel kotak dialog.

5. Dalam kotak dialog seperti yang ditunjukkan di bawah, untuk menyerlahkan data yang tidak dapat ditandingi, sila klik Tidak butang.

Kemudian semua data yang tidak dapat ditandingi di antara dua lajur akan dipaparkan dengan serta-merta. Lihat tangkapan skrin:


anak panah gelembung kanan biru Bandingkan dua lajur dan serlahkan data yang tidak dapat ditandingi dengan Kutools untuk Excel

Jika anda hanya ingin mengetahui dan menyerlahkan jika nilai sel dalam lajur wujud dalam lajur yang lain atau tidak, contohnya seperti di bawah tangkapan skrin yang ditunjukkan, nombor 2 dalam lajur A tidak wujud dalam lajur B. Anda boleh mencuba Bandingkan Ranges utiliti Kutools untuk Excel.

1. klik Kutools > Bandingkan Ranges. Lihat tangkapan skrin:

2. Di dalam Bandingkan Ranges kotak dialog, anda perlu:

2.1 Pilih lajur pertama dengan sel yang tidak dapat ditandingi yang anda akan serlahkan di Cari nilai dalam kotak;

2.2 Pilih lajur kedua yang anda ingin bandingkan berdasarkan pada Menurut kotak;

2.3 Pilih Nilai yang berbeza pilihan;

2.4 Semak Isikan semula warna kotak dan nyatakan warna latar belakang dari senarai juntai bawah;

2.5 Klik pada OK butang. Lihat tangkapan skrin:

3. Kemudian kotak dialog muncul untuk memberitahu anda berapa banyak sel yang hanya berada dalam lajur A tetapi tidak di lajur B, klik butang OK, dan semua sel yang dipadan dipilih dalam lajur A.

Petua.Jika anda ingin mendapatkan percubaan percuma utiliti ini, sila pergi ke muat turun perisian percuma pertama, dan kemudian pergi untuk memohon operasi mengikut langkah di atas.


anak panah gelembung kanan biruRelated articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.