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个细胞复制到活动细胞的右侧。如果选择了范围，则活动单元格是范围内的左上角单元格。

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

如果要将activecell包含在复制的范围内，则不需要偏移量：

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

请注意，复制前无需选择。

Answer 2

此示例选择当前单元格定义的新Range Cells到右侧的单元格5.

请注意，.Offset接受Offset(row, columns)的参数，可能非常有用。

Sub testForStackOverflow()
    Range(ActiveCell, ActiveCell.Offset(0, 5)).Copy
End Sub

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

2 个答案: