6

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

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

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

4

4 回答 4

9

为了简化一点:

Range(Replace("A?,C?,E?", "?", ActiveCell.Row)).Copy
于 2019-09-24T08:26:40.137 回答
5

你有,外面的""。你需要把它们放在里面。看到这个

Range("A" & ActiveCell.Row & ",C" & ActiveCell.Row & ",E" & ActiveCell.Row).Copy
于 2019-09-24T08:14:43.190 回答
3

尝试这个:

Union(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 3), Cells(ActiveCell.Row, 5)).Copy
于 2019-09-24T07:51:01.007 回答
2

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

我会这样做:

Sub test()

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

End Sub
于 2019-09-24T08:58:04.460 回答