简单的VBA选择:选择活动单元格右侧的5个单元格

Question

我正在尝试选择我的活动单元格右侧的5个单元格(选择应包括我的活动单元格).我目前的代码是:

Sub SelectandCopy()
'
' SelectandCopy Macro
'
' Keyboard Shortcut: Ctrl+Shift+C
'
ActiveCell.CurrentRegion.Select
Selection.Copy
Windows("Study.xlsx").Activate
End Sub

我不希望工作表中的特定范围,因为我希望能够从我的工作表中的任何位置选择这些数据集.任何帮助将不胜感激!!

你会使用Selection.Extend吗？

Answer 1

这将5个单元复制到activecell的右侧.如果选择了范围,则活动单元格是范围中的左上角单元格.

Sub Copy5CellsToRight()
    ActiveCell.Offset(, 1).Resize(1, 5).Copy
End Sub

如果要在复制的范围中包含activecell,则不需要偏移量:

Sub ExtendAndCopy5CellsToRight()
    ActiveCell.Resize(1, 6).Copy
End Sub

请注意,复制前无需选择.