VBA基于select返回范围

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

代码是：

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

所以，我会select说G2：G10，然后它将返回G2：J10中从G2开始的10个单元格的范围内的内容。 它应该完成与下面的代码相同的事情，但没有复制粘贴。

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

谢谢你的帮助！ 约旦

Answer 1

这将只获得您select的行而不是整列。

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