[英]Select or Copy three 3 non-adjacent cells
如何使用ActiveCell.Row
复制 3 个不相邻的单元格?
Range("A" & ActiveCell.Row, "C" & ActiveCell.Row, "E" & ActiveCell.Row).Copy
更新:有关更多信息,请关注 - https://youtu.be/zjF7oLLgtms
为了简化一点:
Range(Replace("A?,C?,E?", "?", ActiveCell.Row)).Copy
你有,
在""
之外。 你需要把它们放在里面。 看到这个
Range("A" & ActiveCell.Row & ",C" & ActiveCell.Row & ",E" & ActiveCell.Row).Copy
尝试这个:
Union(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Copy
我认为有很多方法可以做到这一点,您可能会阅读这篇文章,它会给您更好的洞察力。
我会这样做:
Sub test()
Set x = Application.Union(Range("A" & ActiveCell.Row), Range("C" & ActiveCell.Row), Range("E" & ActiveCell.Row))
x.Copy
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.