小编Roy*_*Roy的帖子

我有一个宏可以根据过滤器复制数据。但是一些正在复制的单元格中已经有公式，所以我想复制它并仅作为文本或值粘贴。我尝试使用下面的。我尝试了 xlValues 和 Format text，它们都给出了错误 - 运行时错误 '438' 。对象不支持此属性或方法。

Sub DS()

    Dim sourceWorkbook As Workbook
    Dim targetWorkbook As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet

    Dim sourceWorkbookPath As String
    Dim targetWorkbookPath As String
    Dim lastRow As Long



    ' Define workbooks paths
    sourceWorkbookPath = "Exceptional Transfer -2020 v2.xlsm"
    targetWorkbookPath = "template2.xlsx"

    ' Set a reference to the target Workbook and sheets
    Set sourceWorkbook = Workbooks.Open(sourceWorkbookPath)
    Set targetWorkbook = Workbooks.Open(targetWorkbookPath)

    ' definr worksheet's names for each workbook
    Set sourceSheet = …