Скопировать данные в последнюю свободную ячейку в строке

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

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

Скопировать данные в последнюю свободную ячейку в строке (Формулы/Formulas)

puz27

Дата: Вторник, 02.04.2019, 15:07 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2010

Здравствуйте! Снова требуется Ваша помощь. В общем необходимо копировать данные ячейки в последнюю свободную ячекйу строки.

Вот, что у меня есть.

[vba]

Код

Sub mCopyData()
Dim mRng As Range
    Set mRng = Range([C1], [C1]) '
    If Application.CountA(mRng) = 0 Then
        MsgBox "Внесите данные"
        Exit Sub
            Else

                mRng.Copy Sheets("Лист1"). _
                        Cells(5, Columns.Count) _
                    .End(xlToRight).Offset(1)
    End If
End Sub

[/vba]

Но данные переносятся не в последнюю свободную ячейку строки, а вообще в последнюю ячейку листа - в самый самый конец.
Не могу понять, как этого избежать. Спасибо!

Ответить

K-SerJC

Дата: Вторник, 02.04.2019, 16:16 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата puz27, 02.04.2019 в 15:07, в сообщении № 1 ()

может так? только не в том разделе этот вопрос по VBA

Благими намерениями выстелена дорога в АД.

Ответить

puz27

Дата: Вторник, 02.04.2019, 16:39 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2010

Да, извините, раздел может и не том.
По поводу макроса. он добавляет данные в ячейку, но потом уже в следующую ячейку строки не добавляет.

Ответить

puz27

Дата: Вторник, 02.04.2019, 17:58 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2010

То есть допустим, если упростить вообще.

[vba]

Код

Sub Copy_To_Last_Cell()
Range("C1").Copy Cells(1, Columns.Count).End(xlUp).Offset(1)
End Sub

[/vba]

То данные заносятся в самую последнюю ячейку 1 строки. В самый, край а мне надо, в последнюю свободную ячейку строки. Просто странно, что для столбцов это работает, а если переделать для строк- то нет.