vba多個單元格錯誤450

-1

我有這段代碼從一個工作簿複製到另一個，似乎工作得很好，當我使用類似A1：A23的東西但是我需要複製某些單元格，但我得到一個運行時錯誤450調試顯示這一點。vba多個單元格錯誤450

Workbooks(Dir(Path)).Worksheets("DCR").range("A3", "A9", "A19" "A23" "B38:B44").VALUE = _ 
    Workbooks("book.xlsm").Worksheets("dcr").range("L3", "L9", "L19" "L23" "M38:M44").VALUE

如果我把所有的「出它只是copys從A3的所有單元格值任何幫助將是巨大的

來源

2017-09-16 darka

喲你發佈了一個無效的範圍參考 – jsotola

你不能賦值或粘貼複製到脫節細胞在一個行，你需要將每個組分成一行。

最好的方法是使用一個帶座外，使其他WS的變量，以限制打字。

Dim ws as Worksheet 
Set ws = Workbooks("book.xlsm").Worksheets("dcr") 
With Workbooks(Dir(Path)).Worksheets("DCR") 
    .range("A3").Value = ws.range("L3").Value 
    .range("A9").Value = ws.range("L9").Value 
    .range("A19").Value = ws.range("L19").Value 
    .range("A23").Value = ws.range("L23").Value 
    .range("B38:B44").Value = ws.range("M38:M44").Value 
End With

來源

2017-09-16 23:20:43

vba多個單元格錯誤450

回答

相關問題