Excel VBA - 複製多行到另一個表的範圍

with Sheets("XYZ")  
wSheet.Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy 
    .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select 
    .Paste

爲什麼它不起作用，並給我所有的行從8到472而不是？我需要特定的行，不是全部。Excel VBA - 複製多行到另一個表的範圍

來源

2013-07-31 Shad M Khan

我可以得到下面的代碼來按預期複製。這是在Excel 2007上 - 它可能是你在一個早期版本，行爲不同。

Public Sub Test() 
    With Sheets("XYZ") 
     .Range("8:8,9:9,10:10,11:11,12:12,13:13,266:266,472:472").Copy 
     .Cells(.Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).Select 
     .Paste 
    End With 
End Sub

來源

2013-07-31 08:19:32

我的確是不同的代碼行。我已經更新了代碼。請檢查 –

謝謝，我會適當地編輯我的答案 –

謝謝克里斯，但wSheet是另一張表。 –

Excel VBA - 複製多行到另一個表的範圍

回答

相關問題