VBA复制行范围

Question

是否可以复制行范围并将其粘贴到其他工作表中？ 我试过这个，但我得到1004错误：

.Rows(i_cls_frst_row, i_cls_last_row).Copy

此致 米哈尔

Answer 1

是的，改变你的行

.Rows(i_cls_frst_row, i_cls_last_row).Copy

为：

.Rows(i_cls_frst_row & ":" & i_cls_last_row).Copy

然后，您可以将其粘贴到您需要的地方

Answer 2

这是你在尝试的吗？

如果您有i_cls_frst_row=1和i_cls_last_row=3之类的非连续行，并且您尝试复制两行，请尝试此操作

Range(i_cls_frst_row & ":" & i_cls_frst_row & "," & _
      i_cls_last_row & ":" & i_cls_last_row).Copy

如果您尝试从i_cls_frst_row复制到i_cls_last_row，请尝试此

Rows(i_cls_frst_row & ":" & i_cls_last_row).Copy

Answer 3

您可以定义Range对象，并选择所有必需的行/行作为范围

Dim example As Range
Set example = Range("A1:E1")
example.Select
Selection.Copy

Answer 4

使用一定范围的行：

Range(Rows(i_cls_frst_row), Rows(i_cls_last_row)).Copy

或Range的EntireRow属性：

Range(Cells(i_cls_frst_row, 1), Cells(i_cls_last_row, 1)).EntireRow.Copy

如果您知道要复制的数字或行，也可以使用范围调整大小：

Rows(i_cls_frst_row).Resize(2).copy
(this copies 2 rows)