Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Скопировать данные в последнюю свободную ячейку в строке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать данные в последнюю свободную ячейку в строке (Формулы/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]

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

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

[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]

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

Автор - puz27
Дата добавления - 02.04.2019 в 15:07
K-SerJC Дата: Вторник, 02.04.2019, 16:16 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013


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


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение


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

Автор - K-SerJC
Дата добавления - 02.04.2019 в 16:16
puz27 Дата: Вторник, 02.04.2019, 16:39 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - puz27
Дата добавления - 02.04.2019 в 16:39
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 строки. В самый, край а мне надо, в последнюю свободную ячейку строки. Просто странно, что для столбцов это работает, а если переделать для строк- то нет.
 
Ответить
СообщениеТо есть допустим, если упростить вообще.

[vba]
Код
Sub Copy_To_Last_Cell()
    Range("C1").Copy Cells(1, Columns.Count).End(xlUp).Offset(1)
End Sub
[/vba]

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

Автор - puz27
Дата добавления - 02.04.2019 в 17:58
Pelena Дата: Вторник, 02.04.2019, 19:35 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Sub Copy_To_Last_Cell()
    Range("C1").Copy Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Sub Copy_To_Last_Cell()
    Range("C1").Copy Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub
[/vba]

Автор - Pelena
Дата добавления - 02.04.2019 в 19:35
puz27 Дата: Среда, 03.04.2019, 08:22 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ДА!!!! СПАСИБО! Огромное! Все мне очень помогли. Буду разбираться с vba.
 
Ответить
СообщениеДА!!!! СПАСИБО! Огромное! Все мне очень помогли. Буду разбираться с vba.

Автор - puz27
Дата добавления - 03.04.2019 в 08:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать данные в последнюю свободную ячейку в строке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!