导入单元格函数

Question

我写下面的代码，我导入一个列从一个工作表到另一个，但它只是粘贴我的值。我希望它也能导入cell函数

Sheets("Plan Traitement Risque").Range("B6").Select
lRow = Worksheets("Analyse de risque").Range("B6").End(xlDown).Row
 Worksheets("Analyse de risque").Range("B6:B" & lRow).Copy Destination:=Sheets("Plan Traitement Risque").Range("B6:B" & lRow)

Answer 1

只需在范围的末尾添加'function'，如下代码:

Sheets("Plan Traitement Risque").Range("B6").Select
    lRow = Worksheets("Analyse de risque").Range("B6").End(xlDown).Row
     Sheets("Plan Traitement Risque").Range("B6:B" & lRow) = Worksheets("Analyse de risque").Range("B6:B" & lRow).Formula

我用'='代替复制，因为你只粘贴一次。