Excel Macro: записать записанную ячейку меньше?

Question

Я записал простой макрос, который мне нужно сделать во что-то общее, поэтому его можно использовать для любой строки и последних четырех ячеек. Вот мой recroded версия:

Selection.End(xlToRight).Select 
Selection.End(xlToRight).Select 
Selection.End(xlToRight).Select 
Selection.End(xlToRight).Select 
Selection.End(xlToLeft).Select 
Range("Q12:T12").Select 
Range("T12").Activate 
Selection.Copy 

End Sub

Как

• сделать его к последней ячейке ROW я поместить курсор в?
• изменяет диапазоны конкретных ячеек на диапазон, который просто означает: выберите эту ячейку и еще 3 влево?

... selection.copy Я думаю, что я могу почти управлять :)

Большое спасибо Майк

Answer 1

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

Sub CopyLastFourCellsOfRow() 
Dim lastCell As Range 
Dim rngToCopy As Range 

Set lastCell = Selection.End(xlToRight) 
Set rngToCopy = Range(lastCell, lastCell.Offset(0, -3)) 

rngToCopy.Copy 

End Sub 

Обновление - Если ваша строка имеет сломанные данные, лучший способ - начать в конечном столбце таблицы (столбец IV), а затем вернуться назад. Для достижения этой цели заменить lastCell заявление следующего содержания:

Set lastCell = Cells(Selection.Row, 256).End(xlToLeft) 

Answer 2

Вы действительно можете сделать отдельные шаги, вы спрашиваете обо всем в одном быстром движении. Чтобы перейти в последнюю ячейку текущей строки, вы просто используете ActiveCell.End (xlToRight). (Используйте «ActiveCell», потому что это эквивалентно «Выбор», когда выбран только один сотовый, но работает, даже если несколько ячеек выбраны.)

Range(ActiveCell, ActiveCell.Offset(0, -3)).Select 

будет выбрать текущую ячейку и более 3 влево. Обратите внимание, что вам не нужно делать «Selection.Copy» на отдельном шаге. Вы можете просто пойти:

Range(ActiveCell, ActiveCell.Offset(0, -3)).Copy