从一个页面切换到另一个没有select

我试图从一个工作表复制到另一个，而.End属性应该与范围值，但错误说它不是！ 开发人员文档没有帮助，所以我不知道该怎么做。

下面的代码.End(xlup)是抛出错误。

  Dim inputcells As Range Sheets(1).Range("B8:F8").Cut With Worksheets(2).Range("C1000") .End (xlUp) .Offset(1, 0).PasteSpecial xlPasteValues End With 

Answer 1

这将做到这一点，

 Sheets(1).Range("B8:F8").Cut Destination:=Sheets(2).Cells(Sheets(2).Rows.Count, "C").End(xlUp).Offset(1) 

如果您尝试使用“剪切”粘贴特殊值，则不起作用，您只能使用“复制”

一种解决方法是设置范围，然后使范围与其他范围相等。

 Sub Button1_Click() Dim sh1 As Worksheet Dim sh2 As Worksheet Dim CrNg As Range Dim LstRw As Long Dim PrNg As Range Set sh1 = Sheets(1) Set sh2 = Sheets(2) Set CrNg = sh1.Range("B8:F8") With sh2 LstRw = .Cells(.Rows.Count, "C").End(xlUp).Row + 1 Set PrNg = .Range(.Cells(LstRw, "C"), (.Cells(LstRw, "G"))) End With PrNg.Value = CrNg.Value End Sub 

如果你想，你可以清除CrNg 。

Answer 2

使用Copy而不是Cut ：

 Sub ljsh() Sheets(1).Range("B8:F8").Copy Sheets(2).Range("C1000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub