选择或复制三个3个不相邻的单元格

Question

如何使用ActiveCell.Row复制3个非相邻的单元格？

Range("A" & ActiveCell.Row, "C" & ActiveCell.Row, "E" & ActiveCell.Row).Copy

更新：有关更多信息，请遵循-https://youtu.be/zjF7oLLgtms

Answer 1

为了简化一点：

Range(Replace("A?,C?,E?", "?", ActiveCell.Row)).Copy

Answer 2

您在,之外有""。您需要将它们放入其中。看到这个

Range("A" & ActiveCell.Row & ",C" & ActiveCell.Row & ",E" & ActiveCell.Row).Copy

Answer 3

尝试一下：

Union(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Copy

Answer 4

[我认为有很多方法可以做到这一点，您可以阅读this，它将为您提供更好的见解。

我会做的：

Sub test()

Set x = Application.Union(Range("A" & ActiveCell.Row), Range("C" & ActiveCell.Row), Range("E" & ActiveCell.Row))
x.Copy

End Sub