Excel vba复制和粘贴单元格引用

我可以看到我的代码正在复制正确的单元格，但最终粘贴不正确

工作簿1-将要复制的单元格粘贴到工作簿2中（“C5:E287”），但最终结果应粘贴到工作簿2中（“H11:J293”）-但最终将S9:S285粘贴到第一列，V9:V285粘贴到第二列，W9:W285粘贴到第三列

不知道为什么，也不知道我的手机号码是否有误

Sub CopyAndPaste()
Dim wB As Workbook
Dim wb2 As Workbook
Dim ward As Worksheet
Dim Data As Worksheet

Set wB = Workbooks("a.xlsm")
Set w = wB.Sheets("DATA")

SourcePath = Workbooks("a.xlsm").Sheets("Front sheet").Range("AB1").Text
SourceFile1 = Workbooks("a.xlsm").Sheets("Front sheet").Range("AA1").Text
Set wb2 = Workbooks.Open(SourcePath & SourceFile1 & ".xlsm")
Set Data = wb2.Sheets("DATA")

bIsEmpty = False

    If w.Range("C2") = "3" Then
    w.Range("C5:E287").Copy
    Data.Range("H11:J293").PasteSpecial
    ElseIf wB.ward.Range("C2") = "5" Then
    bIsEmpty = True
    End If

End Sub

---

为什么使用.copy和.PasteSpecial

指定范围值

Data.Range("H11:J293").Value =  w.Range("C5:E287").Value

---

还可以通过读取/写入变量数组来复制粘贴值：

Dim Arr() As Variant
Dim Destination As Range

'your code......

'reads values to dynamically sied variant array
Arr =  w.Range("C5:E287")  

'Sets left corner and size of range destination and fills it by Arr values.
Set Destination = Data.Range("H11")
Destination.Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr

在VBa内部数据结构中读取数据以处理这些数据，并将最终结果写回电子表格时，它还有一个附加值，如果经常更快的话。

---

更多信息请参见《无价文章》

Eh？我看不到对

S9:S285

的任何引用。