Search code examples
excelvbacellcopy-paste

Select or Copy three 3 non-adjacent cells


How can I copy 3 non-adjacent cells using ActiveCell.Row?

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

Update: For further info follow - https://youtu.be/zjF7oLLgtms


Solution

  • To simplify things a little:

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