VBA根据选择返回范围

Question

我认为我想要执行的是一个相当简单的VBA任务。它应该根据我选择的一列单元格，将这些单元格的内容加上接下来三列中的单元格输出到我的电子表格中的另一个位置。

代码是：

ActiveCell.Offset(0, 10) = Selection.Columns("a:d")

所以，我会选择说G2：G10，然后它将返回G2中的内容：J10，从G2的单元格10列开始。它应该完成与以下代码相同的操作，但不需要复制粘贴。

Selection.Columns("a:d").Copy
ActiveCell.Offset(0, 10).PasteSpecial

感谢您的帮助！ 约旦

Answer 1

这将只获取您选择的行而不是整列。

ActiveCell.Offset(, 10).Resize(Selection.Rows.Count, 4).Value = Selection.Resize(Selection.Rows.Count, 4).Value