從一個范圍復制，粘貼到同一行，但列在左邊

Question

我的以下代碼未運行？ 似乎無法找出原因...

我正在嘗試使用以下代碼在其左側復制一個命名范圍22列，有人可以將我引向正確的方向嗎？

謝謝！

子ApplyFutureYears（）

Dim wb As Workbook
Dim ws0 As Worksheet
Dim ws1 As Worksheet
Dim destRng1 As String
Dim sorceRng1 As String

Set wb = ThisWorkbook
Set ws0 = wb.Sheets("Selection")
Set ws1 = wb.Sheets("Non-Union Empl HC")

Select Case ws0.Range("G3")

    Case "2015LRP"
        sorceRng1 = "Copy1": destRng1 = Range("Copy1").Offset(0, -22)

    Case Else

        Exit Sub

End Select

ws1.Range(sorceRng1).Copy
ws1.Range(destRng1).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True

End Sub

Answer 1

這是我建議的一些更改：

Set ws0 = wb.ActiveSheet

和

Select Case ws0.Range("G3").name

並且除了使用copy命令之外，為什么不直接分配值，例如：

ws1.range(ws1.cells(1, 20), ws1.cells(10, 2)).value= ws0.range(ws0.cells(1, 1), ws0.cells(10, 1)).value