2016-08-24 173 views
1

是否可以复制行的范围并将其粘贴到其他表中? 我试过,但我得到1004的错误:行的VBA复制范围

.Rows(i_cls_frst_row, i_cls_last_row).Copy 

问候 米哈尔

+0

您需要发布更多的代码。只用一行来判断错误来自哪里是不可能的。 – Comintern

回答

2

这是你正在尝试的吗?

如果你有一个像i_cls_frst_row=1i_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_rowi_cls_last_row那就试试这个

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

有史以来第一次输入比你快:) –

+0

真的......但我涵盖了两种情况;) –

+0

非常感谢。 :) – Eswemenasja

2

是的,改变你的线

.Rows(i_cls_frst_row, i_cls_last_row).Copy 

到:

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

再后来就你可以将它粘贴到你需要的地方

0

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

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