我正在创建一个宏,但我被困在这个剪切粘贴语句中,不能从昨天开始继续。Excel VBA - 选择剪切粘贴错误
这里是问题:我选择列“D2到F2”中的所有行并粘贴到“A1”。 下面是它的代码:收到此错误
Range("D2:F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
这是我曾尝试:
代码更改:使用
PasteSpecial
,而不是简单Paste
。Range("D2:F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select 'ActiveSheet.Paste ' insted of this using paste special. ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
代码变化:调整大小的选择,以3列。
Range("D2:F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Resize(1, 3).Select 'ActiveSheet.Paste
- 试过
On Error Resume Next
语句。它忽略错误消息,但不粘贴数据。
我正在寻找一种方式来忽略此错误消息,并贴进行。当我们在Excel工作表中手动输入copy-paste
或cut-paste
时,我们通常会得到这个错误,我们可以选择忽略和粘贴数据。同样,是否有任何方法可以在宏中忽略它?
不要使用'Select'。 –
我很确定你的原始选择要复制到工作表底部。因此,复制的单元格太大而无法放入目标中。 。参见[如何避免在Excel VBA宏中使用Select](http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros)了解更多有关远离依赖选择并激活以实现您的目标。 – Jeeped
仅使用单个左上角单元格为复制的单元格指定目标粘贴区域。尝试一下 – Jeeped