Varat izmantot tālāk norādītās metodes, lai salīdzinātu datus divās Microsoft Excel darblapas kolonnās un atrastu ierakstu dublikātus.
1. metode. Darblapas formulas izmantošana
-
Startējiet programmu Excel.
-
Jaunā darblapā kā piemēru ievadiet šādus datus (atstājiet kolonnu B tukšu):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Šūnā B1 ierakstiet šādu formulu:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) -
Atlasiet šūnu B1 līdz B5.
-
Programmā Excel 2007 un jaunākās Excel versijās atlasiet Aizpildījums grupā Rediģēšana un pēc tam atlasiet Uz leju.
Skaitļu dublikāti tiek parādīti kolonnā B, kā šajā piemērā:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
2. metode. Visual Basic makro izmantošana
Brīdinājums.: Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bet nekādas garantijas nav izteiktas vai netiešas. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek demonstrēta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdošanas procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētas procedūras funkcionalitāti. Tomēr tie nemodificēs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai uzbūves procedūras, kas atbilst jūsu konkrētajām vajadzībām.
Lai izmantotu Visual Basic makro divu kolonnu datu salīdzināšanai, veiciet tālāk sniegtajā piemērā norādītās darbības.
-
Startējiet programmu Excel.
-
Nospiediet taustiņu kombināciju ALT+F11, lai startētu Visual Basic redaktoru.
-
Izvēlnē Ievietošana atlasiet Modulis.
-
Moduļa lapā ievadiet šādu kodu:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Lai atgrieztos programmā Excel, nospiediet taustiņu kombināciju ALT+F11.
-
Kā piemēru ievadiet šādus datus (atstājiet kolonnu B tukšu):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Atlasiet šūnu A1 līdz A5.
-
Programmā Excel 2007 un jaunākās Excel versijās atlasiet cilni Izstrādātājs un pēc tam grupā Kods atlasiet Makro.
Piezīme.: Ja neredzat cilni Izstrādātājs , iespējams, tā ir jāieslēdz. Lai to izdarītu, atlasiet >faila >opcijas un pēc tam pielāgošanas lodziņā labajā pusē atlasiet cilni Izstrādātājs.
-
Noklikšķiniet Find_Matches un pēc tam uz Izpildīt.
Skaitļu dublikāti tiek parādīti kolonnā B. Atbilstošie skaitļi tiks ievietoti blakus pirmajai kolonnai, kā parādīts šeit:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
