复制三列数据，并将它们粘贴到右侧第一个打开的列中

Question

我设置了一个电子表格，以便每周用最新数据填充列BX,BY,BZ。我的目标是将BX、BY、BZ中的最新数据复制到第一个可用的开放列中，在本例中是CA、CB、CC，然后是CD、CE、CF等后一周的数据，这样我就可以获得每周数据趋势的完整历史记录。我是新的VBA，我不知道如何接近这个，但已经粘贴了我已经开始下面。

任何帮助都非常感谢!

Sub Copy_Latest()
'
' Copy_Latest Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Columns("BX:BZ").Select
Selection.Copy
Columns("CC:CE").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Answer 1

复制使用范围右邻的列

Option Explicit
Sub CopyLatest()
'
' CopyLatest Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Const Cols As String = "BX:BZ"

Dim ws As Worksheet: Set ws = ActiveSheet ' improve!

With ws.UsedRange
Dim srg As Range: Set srg = Intersect(.Cells, ws.Columns(Cols))
Dim drg As Range: Set drg = .Resize(, srg.Columns.Count) _
.Offset(, .Columns.Count)
drg.Value = srg.Value
End With

End Sub