Объединение al oop и оператора if

Question

у меня 2 листа. Лист 1 содержит данные, которые я хочу скопировать. Если вы можете дать мне подсказку о том, как подойти, я смогу написать остальное самостоятельно.

Мой лог c должен был создать все oop, которые бы выбирали все ячейки, если выполняется условие. Это условие будет, если ячейка (i, 1) = ячейка (i + 1,1)

Я приложил 2 фотографии, первое на том, как выглядят исходные данные на листе 1, а второе лист 2 с тем, как данные выглядят после преобразования.

Вот мой код, в котором я получаю ошибку (Далее без For)

Sub Loop_if()

Dim ws As Worksheet
Set ws = ws("sheet2")

Dim i As Integer
i = 2
For i = 2 To 23000

    If Cells(i, 1) = Cells(i + 1, 1) Then
    Range(Cells(i, 3), Cells(i, 25)).Select
    Selection.Copy
    ws.Select
    If ws.Cells(i, 1) = Cells(i, 1) Then
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True


End If
Next i

End Sub

Answer 1

Эта ошибка возникает, когда вы не закрываете оператор IF с помощью «End IF». У вас есть 2 IF, и вам нужно 2 «End IF»

   Sub Loop_if()

    Dim ws As Worksheet
    Set ws = ws("sheet2")

    Dim i As Integer
    i = 2
    For i = 2 To 23000

        If Cells(i, 1) = Cells(i + 1, 1) Then
        Range(Cells(i, 3), Cells(i, 25)).Select
        Selection.Copy
        ws.Select
        End If
        If ws.Cells(i, 1) = Cells(i, 1) Then
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True


    End If
    Next i

или что-то в этом роде:

Sub Loop_if()

Dim ws As Worksheet
Set ws = ws("sheet2")

Dim i As Integer
i = 2
For i = 2 To 23000

    If Cells(i, 1) = Cells(i + 1, 1) Then
    Range(Cells(i, 3), Cells(i, 25)).Select
    Selection.Copy
    ws.Select
    ElseIf ws.Cells(i, 1) = Cells(i, 1) Then
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True


End If
Next i