3

我正在尝试选择我的活动单元格右侧的一行 5 个单元格（选择应包括我的活动单元格）。我目前的代码是：

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

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

你会使用 Selection.Extend 吗？

4

2 回答 2

10

这会将 5 个单元格复制到活动单元格的右侧。如果您选择了一个范围，则活动单元格是该范围内的左上角单元格。

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

如果要在复制的范围内包含活动单元格，则不需要偏移量：

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

请注意，您不需要在复制前进行选择。

于 2013-05-30T18:42:32.787 回答
2

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

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

Sub testForStackOverflow()
    Range(ActiveCell, ActiveCell.Offset(0, 5)).Copy
End Sub
于 2013-05-30T18:41:31.600 回答