Добрый день! Не могу никак сообразить. Есть код. Который делает следующее: Ищет последнюю пустую строку. Вставляет туда скопированные данные. Затем находит эту же строчку, как последнюю заполненную. И теперь остается только код, который бы протянул эту строчка до конца по другим столбцам. Аналогично функции когда мы в ячейке в углу щелкаем и он автоматом тянет вниз. Дескать определяет последнюю заполненную строчку по А2 Затем протягивает последнюю найденную ячейку до уровня последней ячейки с данными по А2 Но я так и не сообразил как это все грамотно прописать =(
но тоже ничего не вышло =( [moder]Для оформления кодов используйте кнопку #[/moder]
Добрый день! Не могу никак сообразить. Есть код. Который делает следующее: Ищет последнюю пустую строку. Вставляет туда скопированные данные. Затем находит эту же строчку, как последнюю заполненную. И теперь остается только код, который бы протянул эту строчка до конца по другим столбцам. Аналогично функции когда мы в ячейке в углу щелкаем и он автоматом тянет вниз. Дескать определяет последнюю заполненную строчку по А2 Затем протягивает последнюю найденную ячейку до уровня последней ячейки с данными по А2 Но я так и не сообразил как это все грамотно прописать =(
решил напрячь свои телепатические способности, но так и не понял чего вы пытались добиться в последней строке своего кода [vba]
Код
Dim wsh As Worksheet, cell As Range,rng as Range Set wsh = Windows("FilenamesCollectionEx - копия.xlsm").ActiveSheet.Parent.Sheets("вх") With wsh Set cell = .Cells(.Rows.Count, 25).End(xlUp).Offset(1) cell.PasteSpecial xlPasteValues, xlNone, 0, 0 Set cell = .Cells(.Rows.Count, 25).End(xlUp) With cell Set Rng = .Offset(2 - .Row, 1 - .Column).Resize(.Row - 1 * (.Row > 2)) '?????????????????????????? End With End With
[/vba]
решил напрячь свои телепатические способности, но так и не понял чего вы пытались добиться в последней строке своего кода [vba]
Код
Dim wsh As Worksheet, cell As Range,rng as Range Set wsh = Windows("FilenamesCollectionEx - копия.xlsm").ActiveSheet.Parent.Sheets("вх") With wsh Set cell = .Cells(.Rows.Count, 25).End(xlUp).Offset(1) cell.PasteSpecial xlPasteValues, xlNone, 0, 0 Set cell = .Cells(.Rows.Count, 25).End(xlUp) With cell Set Rng = .Offset(2 - .Row, 1 - .Column).Resize(.Row - 1 * (.Row > 2)) '?????????????????????????? End With End With