簡單的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 

請注意，您不需要複製之前選擇。

Answer 2

本示例選擇由當前單元格定義的Cells的新Range到右側的單元格5。

請注意，.Offset需要Offset(row, columns)的參數，並且可能非常有用。

---

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