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 - 复制多行到另一个表的范围

回答

相关问题