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

【问题标题】：Select or Copy three 3 non-adjacent cells选择或复制三个 3 个不相邻的单元格
【发布时间】：2020-01-24 06:57:45
【问题描述】：

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

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

更新： 更多信息请关注 - https://youtu.be/zjF7oLLgtms

【问题讨论】：

【解决方案1】：

试试这个：

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

【讨论】：

【解决方案2】：

, 位于 "" 之外。你需要把它们放在里面。看到这个

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

【讨论】：

【解决方案3】：

为了简化一点：

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

【讨论】：

【解决方案4】：

我认为有很多方法可以做到这一点，您可以阅读this 它会给您更好的洞察力。

我会做的：

Sub test()

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

End Sub

【讨论】：