Spalten vergleichen in zwei verschiedenen excel-Tabellen und Arbeitsmappen, dann buchen Sie den entsprechenden Wert in einer anderen Spalte

Bin ich mit viel Mühe versuchen, herauszufinden, dieses makro, so richtig jetzt bin ich mit 2 sheets in einer Arbeitsmappe möchte ich mich für die Verwendung von zwei verschiedenen Arbeitsmappen aber das ist nicht so wichtig wie die Frage.

Erklären, Tabelle1 Spalte E die id-Nummer und in Tabelle2 Spalte A ist die id-Nummer, nun, wenn jeder Wert in Tabelle1 E entspricht einem Wert in Spalte A in Tabelle2, muss ich das makro zum kopieren der entsprechenden Zelle aus Blatt 2 Spalte D. Also im wesentlichen, wenn E5 (von Blatt 1) abgestimmt A1 in Tabelle2, ich müsste das makro zur Ausgabe Tabelle2 ' s D1, Tabelle1 ist die F5-Taste. Es wäre auch schön, zum löschen der Werte der Tabelle1 Spalte F, wenn in Tabelle1 Spalte E nicht mit einem Wert in Blatt 2 Spalte a

Habe ich einige code, aber es fügt die Werte aus Tabelle2 Spalte D wird ein Wert von Tabelle1 Spalte E entspricht einem Wert von Tabelle2 Spalte A. Das problem ist, wenn die Werte eingefügt aus Tabelle2 eingefügt in Tabelle1 Spalte F und die Werte sind nicht abgestimmt mit dem richtigen Wert, dass er verglichen mit in Tabelle2. Sie sind einfach nur verdummt. Also, wenn Tabelle1 Spalte E war wie das

Sheet1 Column E    Sheet1 F

1317               relays_120x120.jpg
1319              Control%20boards_120x120
1320              Control%20boards_120x120

Sheet2 Column A             Sheet2 column D
1317                       relays_120x120
1318                       /relays_120x120
1319                    ebay/SingleRunOval

Aber in Wirklichkeit brauche ich Sie alle gleich zu sein und wenn Tabelle1 Spalte E einen Wert hat, der nicht in Tabelle2 Spalte, dann nicht einen link posten in Tabelle1 Spalte F leer lassen.

Hier ist der code ich habe

Sub FindMatches()

    Dim oldRow As Integer
    Dim newRow As Integer
    Dim i As Integer

    i = 1

    For oldRow = 2 To 1170
        For newRow = 1 To 1170
            If Worksheets("Sheet1").Cells(oldRow, 5) = Worksheets("Sheet2").Cells(newRow, 1) Then

                Worksheets("Sheet1").Cells(i, 6) = Worksheets("Sheet2").Cells(oldRow, 4)


                i = i + 1

                Exit For
            End If
        Next newRow
    Next oldRow


End Sub

InformationsquelleAutor Jake Ison | 2013-07-26

  1. 3

    Klingt wie Sie könnte erreichen Sie Ihr Ziel mit der SVERWEIS-Funktion. Fügen Sie diese Formel in Tabelle1 F1: =IFERROR(VLookup(E1,Sheet2!A:D,4,FALSE),"")

    Dass die Formel kopieren Sie die Zelle in Tabelle1, wenn eine übereinstimmung gefunden wird, aber wenn keine übereinstimmung gefunden wird, wird die Zelle leer bleiben.

    wie kann ich das makro es mit einem SVERWEIS(Wert(e1,Sheet2!A:D,4,FALSE) zurückgegeben wird, sondern eine leere
    Was wollen Sie es zurück, anstatt eine leere Zelle?

    InformationsquelleAutor ARich

  2. 1

    Versuchen, verwenden Sie den folgenden code. Ich habe nur modifiziert Ihren code mit StrComp-Funktion

    Sub FindMatches()

    Dim oldRow As Integer
    Dim newRow As Integer
    Dim i As Integer
    i = 1
    For oldRow = 1 To 1170
        For newRow = 1 To 1170
            If StrComp((Worksheets("Sheet1").Cells(oldRow, 5).Text), (Worksheets("Sheet2").Cells(newRow, 1).Text), vbTextCompare) <> 0 Then
                i = oldRow
                Worksheets("Sheet1").Cells(i, 6) = " "
                Else
                Worksheets("Sheet1").Cells(i, 6) = Worksheets("Sheet2").Cells(newRow, 4)
                i = i + 1
                Exit For
            End If
        Next newRow
    Next oldRow

End Sub

    InformationsquelleAutor Sree

Schreibe einen Kommentar