Скопируйте все, кроме двух последних столбцов

Question

У меня есть фрагмент кода, который прекрасно работает, но выбирает все столбцы в каждой строке. Мне нужны столбцы AM, но для жизни я не могу заставить то, что кажется действительно простой настройкой, работать должным образом.

Ниже мой код:

For i = 2 To ws1.Range("B65536").End(xlUp).Row
        If ws1.Cells(i, 12) = Sheets("main").Range("B4") Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1)

Answer 1

Вы можете попробовать код ниже и посмотреть, работает ли он:

For i = 2 To ws1.Range("B65536").End(xlUp).Row
        If ws1.Cells(i, 12) = Sheets("main").Range("B4") Then ws1.Range("A" & i & ":M" & i).Copy ws2.Cells(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1, 1)