Excel VBA将多行区域-Copying到另一个工作表中。

Question

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的所有行？我需要特定的行，而不是所有行。

Answer 1

我可以像预期的那样复制以下代码。这是在Excel2007上出现的--这可能是因为你使用的是行为不同的早期版本。

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