从一个工作簿剪切/粘贴到另一个工作簿

Question

我有一个名为“数据”的工作簿，其中包含“未处理”工作表上的原始数据。

我正在尝试为每个代理创建一个名为“代理”的工作表（这将为每个代理进行更改，但为方便起见，我们现在将其命名为）将原始数据，一次一行，拉到他们的数据工作簿中的工作区。

我需要从“未处理”表中剪切单元格 A2:M2 并粘贴到“代理”表的 A4:M4 中。

我收到“超出范围”错误。我将此 sub 绑定到代理点击的按钮以显示新的数据行。

Sub newcancel_click()
    If Range("M4").Value = "EN" Then 
        MsgBox "You must Complete Previous cancellation.", vbCritical, "Error" 
    Else 
        Sheets("Uncompleted").Select 
        Range("A1:L1").Select 
        Application.CutCopyMode = False 
        Selection.Copy 
        Sheets("Jeremy").Select 
        Range("B4").Select 
        ActiveSheet.Paste 
        Sheets("Uncompleted").Select 
        Rows("1:1").Select 
        Application.CutCopyMode = False 
        Selection.Delete 
        Shift:=xlUp 
        Sheets("Jeremy").Select 
    End If 
End Sub

在此之后，我需要创建一个子程序来将数据从工作区移动到“数据”书上的“已处理”工作表中。我很满意，一旦我第一个工作，我就可以编写这个子。

Answer 1

至于您当前的代码，以下应该会更好。

Sub Newcancel_click2()
If ThisWorkbook.Sheets(1).Range("M4").Value = "EN" Then
        MsgBox "You must Complete Previous cancellation.", vbCritical, "Error"
        Else
        Sheets("Jeremy").Range("B4:M4").Value = Sheets("Uncompleted").Range("A1:L1").Value
        Sheets("Uncompleted").Rows(1).EntireRow.Delete shift:=xlUp
End If
End Sub

给你一个有趣的阅读：How to avoid using select in VBA

至于您的问题，“Subscript out of range”可能意味着您的某些范围未正确定义。您的选择可能与复制目标不匹配，或者（很可能）您所指的工作表不存在（错字或您尚未创建）。

要引用另一个工作簿，您可以使用Workbooks("Workbook name").Sheets("Sheet name").Range 等。您可以使用activeworkbook 来引用当前活动的工作簿（不推荐按照上面的链接以避免使用 select），您可以参考您的 VBA 的工作簿代码在 Thisworkbook 中，这比使用两个语句更容易：Workbook("Name for this one") 和 Workbook("Name for the other one")

在你的情况下，这看起来像：

Sub Newcancel_click2()
If ThisWorkbook.Sheets(1).Range("M4").Value = "EN" Then
        MsgBox "You must Complete Previous cancellation.", vbCritical, "Error"
        Else
        Workbook("Agent").Sheets("Jeremy").Range("B4:M4").Value = Thisworkbook.Sheets("Uncompleted").Range("A1:L1").Value
        Thisworkbook.Sheets("Uncompleted").Rows(1).EntireRow.Delete shift:=xlUp
End If
End Sub

（请注意，我对您的大部分工作簿和工作表名称进行了近似，请检查并替换为您的实际名称）