Question

我想将一行从一个工作表复制到另一个工作表，我的数据从A2行的一个工作表开始，到A108850结束，它从A2列开始，到I2列结束，如何将所有数据复制到另一个工作表，其中行以A4开头，列以A4开头，以I4结尾。

我怎么可能通过一些宏来做呢？。

感谢。

Answer 1

试试这个

Worksheets("Sheet1").Range("A2:I108850").Copy Worksheets("Sheet2").Range("A4")

相应地更改范围参考和工作表的名称。

Answer 2

复制和粘贴是一种非常昂贵的＆＃34;操作越大，操作越昂贵

如果您只对价值感兴趣，可以试试这个：

    Worksheets("DestinationSheetName").Range("A2:I108850").Value = Worksheets("SourceSheetName").Range("A2:I108850").Value

OP评论后

编辑

如果您上次评论中的代码仅具有粘贴值的相同目的，请将第二个语句更改为以下内容：

    With Worksheets("Sheet1").Range("A2:I108850") '<--| reference the "source" range you want to paste values from
         .Range("A4").Resize(.Rows.Count, .Columns.Count).Value = .Value '<--| resize "destination" range accordingly to "source" one and paste values into it
    End With

当然，您必须检查工作表名称是否为当前活动工作簿的有效名称

Excel：将多个行和列从一个工作表复制并粘贴到另一个工作表

2 个答案: