Question

我在一个集合中有14个范围项目，我试图在不同的列中一个接一个地复制并粘贴到新工作表中。我在下面写了一个for循环，但由于某种原因它在我选择新列的行上不断打破，我不知道为什么。任何帮助将不胜感激！

Set NewBook = Workbooks.Add

    With NewBook
        .SaveAs Filename:="NewReport.xls"
    End With

Count = 1

For Each rngitem In rngcollec

rngitem.Copy
NewBook.Activate
Sheet1.Columns(0, Count).Select
rngitem.Paste

Count = Count + 1

Next

Answer 1

您的问题是粘贴方法不适用于列，不像处理范围和单元格那样，您必须将代码更改为：

（请确保您声明了sheet1变量，因为她的声明不在您发布的代码部分中）

sheet1.columns(Count).select
'there is no need to declare the row here just

sheet1.paste

将范围项粘贴到VBA列中

1 个答案: