Question

我正在尝试将单元格M78:078中的多个工作表中的数据复制到一个，其中摘要表的col L中的名称与工作表名称匹配（粘贴到{{1}列中在摘要表中。

目前，下面的代码在该行包含“A1”的运行时错误“13”类型不匹配：

任何意见/建议都将受到赞赏

Z:AA

DRod

Answer 1

每当看到LCell.Text中的空白值时，我都会遇到同样的错误，所以试试这个。

If LCell.Text <> "" Then 
If Evaluate("ISREF(" & LCell.Text & "!A1)") Then
        'Found a matching sheet, copy M78:O78 to the corresponding row, column Z and on
        Set wsGet = wb.Sheets(LCell.Text)
        wsGet.Activate
        wsGet.Range("M78:O78").Copy
        ws.Activate
        ws.Cells(LCell.Row, "Z")
    End If
End if

VBA - 跨多个工作表复制数据

1 个答案: