无法切割到目的地

Question

尝试简单地从一个范围切割并将其粘贴到另一个范围，而不是使用粘贴等。这就是我所拥有的：

Sub Format_Excel_Confirm(clientName As String, newWB As Workbook)

lRow = ActiveWorkbook.Sheets(1).Range("A60000").End(xlUp).Row
Range("B2", "B" & lRow).Cut(Range("AF2", "AF" & lRow))

由于以下原因导致失败：

  

“Range类的Cut方法失败”错误。

Answer 1

在VBA中，如果在参数周围使用括号，则表示您将该行的值赋值给变量。

您可以在行首开始使用Call取消行的返回

或者只是摆脱你的论点的括号！

所以Range("B2", "B" & lRow).Cut(Range("AF2", "AF" & lRow))应该是：

Call Range("B2", "B" & lRow).Cut(Range("AF2", "AF" & lRow))
'Or
Range("B2", "B" & lRow).Cut Range("AF2", "AF" & lRow)