Проблема с вложенными циклами и условиями в VBA

Question

Заранее спасибо за внимание к этому!

У меня проблема с кодом.Я пытаюсь сделать так, чтобы макрос в Excel сравнивал два столбца с числами на двух листах, а затем, исходя из условий, что в строке также будет строковое значение, скопируйте число, которое отсутствует на главном листе (я надеюсь, что это так).имеет смысл).

Sub conditionalCopying()

inactiveRow = Worksheets("Inactive").Cells(Rows.Count, 1).End(xlUp).Row
cutRow = Worksheets("Cutting").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To inactiveRow
If Worksheets("Inactive").Cells(i, 3).Value = "North" Then

    For x = 2 To cutRow
         If Worksheets("Inactive").Cells(i, 1) <> Worksheets("Cutting").Cells(x, 1).Value Then


    Worksheets("Inactive").Rows(i).Copy
    Worksheets("Cutting").Activate

    b = Worksheets("Cutting").Cells(cutRow + 1, 1).Select
    ActiveSheet.Paste

    Worksheets("Inactive").Activate

End If

Next i
Next x

End Sub

Невозможно добавить снимки экрана из-за недостаточно высокой репутации, извините.

Еще раз спасибо за вашу помощь.

Answer 1

Возможно, попробуйте:

Sub conditionalCopying()

Dim Cpt As Long
inactiveRow = Worksheets("Inactive").Cells(Rows.Count, 1).End(xlUp).Row
Cutrow = Worksheets("Cutting").Cells(Rows.Count, 1).End(xlUp).Row
Cpt = Cutrow
For i = 2 To inactiveRow
    If Worksheets("Inactive").Cells(i, 3).Value = "North" Then

        For x = 2 To Cutrow
             If Worksheets("Inactive").Cells(i, 1) <> Worksheets("Cutting").Cells(x, 1).Value Then
                Cpt = Cpt + 1
                Worksheets("Inactive").Rows(i).Copy
                Worksheets("Cutting").Activate
                b = Worksheets("Cutting").Cells(Cpt, 1).Select
                ActiveSheet.Paste
                Worksheets("Inactive").Activate

                GoTo nexti

            End If

        Next x
    End If
nexti:
Next i

End Sub

Отредактированный код Дайте попробовать

Sub conditionalCopying()

Dim Cpt As Long
inactiveRow = Worksheets("Inactive").Cells(Rows.Count, 1).End(xlUp).Row
Cutrow = Worksheets("Cutting").Cells(Rows.Count, 1).End(xlUp).Row
Cpt = Cutrow
For i = 2 To inactiveRow
    If Worksheets("Inactive").Cells(i, 3).Value = "North" And Worksheets("Inactive").Cells(i, 1).Value = "11" Then

    Cpt = Cpt + 1
    Worksheets("Inactive").Rows(i).Copy
    Worksheets("Cutting").Activate
    b = Worksheets("Cutting").Cells(Cpt, 1).Select
    ActiveSheet.Paste
    Worksheets("Inactive").Activate

    End If

Next i

ThisWorkbook.Sheets("cutting").Range("A1:D" & Cpt).RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes

End Sub

Второе редактирование

Sub conditionalCopying()

Dim Cpt As Long
inactiveRow = Worksheets("Inactive").Cells(Rows.Count, 1).End(xlUp).Row
Cutrow = Worksheets("Cutting").Cells(Rows.Count, 1).End(xlUp).Row
Cpt = Cutrow
For i = 2 To inactiveRow
    If Worksheets("Inactive").Cells(i, 3).Value = "North" Then

    Cpt = Cpt + 1
    Worksheets("Inactive").Rows(i).Copy
    Worksheets("Cutting").Activate
    b = Worksheets("Cutting").Cells(Cpt, 1).Select
    ActiveSheet.Paste
    Worksheets("Inactive").Activate

    End If

Next i

ThisWorkbook.Sheets("cutting").Range("A1:D" & Cpt).RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes

End Sub