---
title: "Script - jämföra kolumner"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/182194-script-jämföra-kolumner"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "evesve"
published: "2010-01-27T22:21:37.000Z"
updated: "2010-01-27T22:21:37.000Z"
replies: 0
views: 452
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/182194-script-jämföra-kolumner"
---

# Script - jämföra kolumner

## #1 — evesve, 2010-01-27T22:21Z

Hej!
Jag har fått ett litet problem med ett ett script för excel.
Jag har 2 kolumner, c:a 40.000 rader vardera som ska jämföras.
Att köra koder i cellerna tar för mycket kraft så det måste (tror jag) bli ett VB-script.
Jag har hittat ett par alternativ men den här är den enda som jag fått att fungera med normal datakraft.

```
 Option Explicit

Sub Jamfora_Kolumndata_1()

   '© 2003 Alla rättigheter XL-Dennis

   Dim rnKalla As Range, rnJamfora As Range, rnCell As Range, rnHitta As Range

 

   Application.ScreenUpdating = False

   With ActiveSheet

      Set rnKalla = .Range(.Range("A2"), .Range("A65536").End(xlUp))

      Set rnJamfora = .Range(.Range("B2"), .Range("B65536").End(xlUp))

   End With

   For Each rnCell In rnKalla

      Set rnHitta = rnJamfora.Find(What:=rnCell, LookIn:=xlValues, Lookat:=xlWhole)

      If Not rnHitta Is Nothing Then rnCell.Offset(0, 2) = rnHitta.Value

   Next rnCell

   Application.ScreenUpdating = True

End Sub
```

Här får jag ut värden som finns även i den andra kolumnen. (oavsett vilken rad)

Problemet:
Jag vill vända på det och få ut dom värdena som INTE finns i andra kolumnen.

Tacksam för hjälp, det skulle spara mycket tid...  ;)

Permalänk: https://www.webforum.nu/p/182194

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/182194-script-jämföra-kolumner