Блог

Главная - Вопросы по программированию - Копирование в Excel x количества столбцов ниже одной ячейки

Копирование в Excel x количества столбцов ниже одной ячейки

#vba #excel

#vba #excel

Вопрос:

Я имею дело с изменяющимся файлом, и я хотел бы скопировать последние 10 строк определенного столбца, а затем вставить его в другой рабочий лист, исходный рабочий лист обновляется в течение дня.

Комментарии:

1. И вопрос в том ….?

2. Вложенные листы newst() («старые»). Выберите диапазон columna = «G2» (столбец). Активируйте ActiveCell.End(xlDown). Активируйте для выбора I = от 1 до 10. Смещение (-10 I, 0). Скопируйте листы («новые»). Диапазон («A2»).Смещение (I, 0).Вставляет специальные xlPasteValues

Ответ №1:

 Const COLUMN_INDEX = 1 ' Desired column

Sub CopyValues()
    Dim LastRow = [A65536].End(xlUp).Row ' Find the last row index
    Dim I
    For I = LastRow - 10 To LastRow
        'Do something with Cells(I, COLUMN_INDEX).Value
    Next I
End Sub