Страницы: 1
RSS
Автозаполнение с пропуском строки
 
Здраствуйте.
Прошу помочь начинающему..
Я хотел бы понять как сделать заполнение с пропуском одной строки из "Лист1" в "Лист2"
Прошу строго не судить :D  
 
Вариант.
=IFERROR(INDEX(Лист1!A:A;IF(MOD(ROW(A1)-1;2)=0;INT((ROWS($A$1:A1)-1)/2)+1;""));"")
 
чтобы не грузить лист сложными формулами в таком случае я бы предпочел простенький макрос
Код
Sub imho()
    m = Лист1.UsedRange.Value
    ReDim rz(1 To UBound(m) * 2, 1 To 1)
    For r = 1 To UBound(m)
        rz(r * 2 - 1, 1) = m(r, 1)
    Next r
    Cells(1, 4).Resize(UBound(rz)) = rz
End Sub
Страницы: 1
Наверх