excel - VBA:无法在另一张表中引用范围

Question

这是我的第一篇文章，所以请提供有关我提出问题的方法的任何反馈。

我正在构建一个(最终)应该将范围从一张纸(“沙盒”)复制到另一张纸(“主”)的子。步骤是:

• 识别选定的行
• 遍历沙盒行，确定是找到匹配的主行还是在主行中添加新的末尾行
• 将每个选定沙盒行中的值复制到适当的主行

设置 PasteSpecial 函数的范围时会弹出错误。该行始终给出“1004(对象‘_Global’的方法‘范围’失败”消息。

代码如下:

Sub UpdateMaster()

    Dim currentSelection As Range
    Set currentSelection = Selection

    Dim sheetSB As Worksheet
    Set sheetSB = ThisWorkbook.Sheets("Sandbox")
    Dim sheetMaster As Worksheet
    Set sheetMaster = ThisWorkbook.Sheets("Master")

    Dim lastTargetRow As Integer
    lastTargetRow = sheetMaster.Range("IDRange").End(xlDown).Row + 1
    Dim startingTargetColumn As Integer
    startingTargetColumn = sheetMaster.Range("IDRange").Column

    Dim thisID As String
    Dim thisStatus As String

    For Each thisrow In currentSelection.Rows
        ' Capture the current ID value
        thisID = Cells(thisrow.Row, Range("IDRange").Column).Value
        ' Capture the current Status value
        thisStatus = Cells(thisrow.Row, Range("NewRange").Column).Value

        ' If the row has no ID...
        If thisID = "" Then
            ' ...do nothing
          ' If the row is flagged as new...
          ElseIf thisStatus = "New" Then
            '...identify the first blank row, and set all data columns to be copied
            Range(Cells(thisrow.Row, Range("IDRange").Column), Cells(thisrow.Row, Range("LastSandboxColumn")).Column).Copy _
              Destination:=sheetMaster.Range(lastTargetRow, startingTargetColumn)

            ' Increment the next available last row by 1
            lastTargetRow = lastTargetRow + 1
          Else
          ' Otherwise, find the corresponding row and set the non-ID columns to be copied
            Dim sourceColumn1 As Integer, sourceColumn2 As Integer
            Dim targetRow As Integer, targetColumn As Integer
            Dim matchRow As Integer

            sourceColumn1 = Range("IDRange").Column + 1
            sourceColumn2 = Range("LastSandboxColumn").Column

            targetRow = Application.WorksheetFunction.Match(thisID, sheetMaster.Range("IDRange"), 0)
            targetColumn = startingTargetColumn + 1

            Range(Cells(thisrow.Row, sourceColumn1), Cells(thisrow.Row, sourceColumn2)).Copy
            Range(sheetMaster.Cells(targetRow, targetColumn)).PasteSpecial xlPasteValues
        End If
    Next
End Sub

错误发生在最后一行:

Range(sheetMaster.Cells(targetRow, targetColumn)).PasteSpecial xlPasteValues

令人费解的是，以下似乎有效:

Range(Cells(thisrow.Row, sourceColumn1), Cells(thisrow.Row, sourceColumn2)).Copy _
  Destination:=Range(sheetMaster.Cells(targetRow, targetColumn))

不幸的是，我只想要值；引入公式和格式会搞砸工作表中的其他行为。

我已经尝试了很多变体，但本质上，如果我使用 Cells()，它不允许我创建一个引用 Master 的范围。

非常感谢任何帮助。

Answer 1

只是做:

sheetMaster.Cells(targetRow, targetColumn).PasteSpecial xlPasteValues

如果 sheetMaster 在运行时不是 ActiveSheet，则可能会发生错误:

Range(sheetMaster.Cells(targetRow, targetColumn).PasteSpecial) xlPasteValues

另请注意，对于此问题:

Unfortunately, I want only the values; bringing over formulas and formatting will screw up other behavior in the sheet.

您可以获取范围的 .Value 作为数组，并将其直接写入另一个工作表，而无需调用 Copy 或 Paste/PasteSpecial 方法。下面的答案显示了从一个工作簿复制/粘贴到另一个工作簿的几种方法，但可以很容易地修改以进行工作表到工作表的传输。

Copy from one workbook and paste into another