Страницы: 1
RSS
Копирование диапазона до последней заполненной строки учитывая пустоты
 
Коллеги, прошу извинить за возможный повтор.

В данный момент макрос учитывает пустоты и стопориться на них(копирует данные до пустот), что логично)).
Что нужно вписать, чтобы диапазон копировался до конца вместе с пустотами?
Код
For i = 1 To 50
If Cells(1, i).Value = "Dest. Storage Type" Then
Range(Cells(1, i), Cells(1, i).End(xlDown)).Copy Worksheets("LT23").Range("V1")
Exit For
End If
Next i


Или не замарачиваться и вписать?
Код
Range(Cells(1, i), Cells(100000, i)).Copy
 
Код
lLastRow = Cells.SpecialCells(xlLastCell).Row
For i = 1 To 50
    If Cells(1, i).Value = "Dest. Storage Type" Then
       Range(Cells(1, i), Cells(lLastRow, i)).Copy Worksheets("LT23").Range("V1")
       Exit For
    End If
Next
Изменено: heso - 27.01.2017 12:43:30
 
Heso, спасибо, это второй вариант написания через special.
 
Еще так можно
Код
Range(Cells(1, i), Cells(Rows.Count, i).End(xlUp).Row).Copy
Скажи мне, кудесник, любимец ба’гов...
Страницы: 1
Наверх