Макрос. Протянуть данные из последней заполненной ячейки.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос. Протянуть данные из последней заполненной ячейки. (Формулы/Formulas)

Spaunrus

Дата: Вторник, 30.09.2014, 11:40 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Добрый день!
Не могу никак сообразить.
Есть код. Который делает следующее:
Ищет последнюю пустую строку.
Вставляет туда скопированные данные.
Затем находит эту же строчку, как последнюю заполненную.
И теперь остается только код, который бы протянул эту строчка до конца по другим столбцам. Аналогично функции когда мы в ячейке в углу щелкаем и он автоматом тянет вниз.
Дескать определяет последнюю заполненную строчку по А2
Затем протягивает последнюю найденную ячейку до уровня последней ячейки с данными по А2
Но я так и не сообразил как это все грамотно прописать =(

[vba]

Код

    Windows("FilenamesCollectionEx - копия.xlsm").Activate
       Sheets("вх").Select
       NextRow = Range("Y1048576").End(xlUp).Row + 1
       Cells(NextRow, 25).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       NextRow = Range("Y1048576").End(xlUp).Row
       Cells(NextRow, 25).Select
       Selection.Copy
       myR = Sheets("вх").Range("A2").End(xlDown).Row
       Range(Cells(NextRow, 25)).AutoFill Destination:=Sheets("вх").Range(myR)

[/vba]

Пытался эксперементировать с

[vba]

Код

NextRow = Range("Y1048576").End(xlUp).Row
Cells(NextRow, 25).Select
Selection.AutoFill Destination:=Range(Cells(Rows.Count, 1).End(xlUp).Row)

[/vba]

но тоже ничего не вышло =(
[moder]Для оформления кодов используйте кнопку #[/moder]

Код

[/vba]

Пытался эксперементировать с

[vba]

Код

NextRow = Range("Y1048576").End(xlUp).Row
Cells(NextRow, 25).Select
Selection.AutoFill Destination:=Range(Cells(Rows.Count, 1).End(xlUp).Row)

[/vba]

но тоже ничего не вышло =(
[moder]Для оформления кодов используйте кнопку #[/moder]Spaunrus

Сообщение отредактировал Spaunrus - Вторник, 30.09.2014, 12:04

Ответить

СообщениеДобрый день!
Не могу никак сообразить.
Есть код. Который делает следующее:
Ищет последнюю пустую строку.
Вставляет туда скопированные данные.
Затем находит эту же строчку, как последнюю заполненную.
И теперь остается только код, который бы протянул эту строчка до конца по другим столбцам. Аналогично функции когда мы в ячейке в углу щелкаем и он автоматом тянет вниз.
Дескать определяет последнюю заполненную строчку по А2
Затем протягивает последнюю найденную ячейку до уровня последней ячейки с данными по А2
Но я так и не сообразил как это все грамотно прописать =(

[vba]

Код

[/vba]

Пытался эксперементировать с

[vba]

Код

NextRow = Range("Y1048576").End(xlUp).Row
Cells(NextRow, 25).Select
Selection.AutoFill Destination:=Range(Cells(Rows.Count, 1).End(xlUp).Row)

[/vba]

но тоже ничего не вышло =(
[moder]Для оформления кодов используйте кнопку #[/moder]

Автор - Spaunrus
Дата добавления - 30.09.2014 в 11:40

krosav4ig

Дата: Четверг, 02.10.2014, 16:03 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

решил напрячь свои телепатические способности, но так и не понял чего вы пытались добиться в последней строке своего кода
[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]